Arcade  Games  for  the  Vic- 20 


Arcade  Games  fortheVlc-20 


RESTON  PUBLISHING  COMPANY,  INC. 
Reston,  Virginia 
A  Prentice-Hall  Company 


ISBN:  0-8359-9358-0 


Copyright  1982  by  Tim  Hartnell  and  Mark  Ramshaw 

Portions  of  this  book  were  first  published  in  Great  Britain 
under  the  titles  ZAP,  P0W,  BOOM  and  SYMPHONY  FOR  A 
MELANCHOLY  COMPUTER  by  INTERFACE  PUBLICATIONS. 


All  rights  reserved.  No  part  of  this  publication  may  be 
reproduced,  stored  in  a  retrieval  system,  or  transmitted  in 
any  form  or  by  any  means,  electronic,  mechanical,  photocopying, 
recording  or  otherwise,  except  for  the  sole  use  of  the  purchaser 
of  this  volume,  without  the  prior,  written  permission  of  the 
copyright  holder. 


This  edition  of  ZAP!  POW!  BOOM!  is  produced  by  RESTON  PUBLISHING 
COMPANY,  INC.,  A  Prentice-Hall  Company,  11480  Sunset  Hills  Road, 
Reston,  VA  22090.  Its  sales  are  restricted  to  the  United  States 
of  America.  • 


10  987654321 


Printed  in  the  United  States  of  America. 


Contents 


Introduction . iv 

Monster  Maze . 1 

Hyperspace  Escape . 3 

Gunfight . 5 

Scramble . 7 

Alien  Marauders . 9 

Airplane . 11 

Marathon . 13 

Wizard . 15 

Tail  Gunner . 17 

Astro  Wars . 19 

Swarm . 20 

3-D  Maze . 21 

Brands  Hatch . 23 

Lightning  Bolt . 25 

Space  Birds . 26 

Arkenstone . 28 

Gomoku . 31 

Lunar  Lander . 32 

Earth  Defense . 35 

Nightmare  Castle . 38 

Checkers . 41 

Dambuster . 44 

Smash . 46 

Dogfight . 47 

Night  Raid . 49 

Tank  Battle . 51 

Danger  Star . 53 

Reversi . 56 

Fruit  Machine . 59 

Dr  Watson  and  Dr  Audio . 62 

Tight  Squeeze . 64 

Time  Guardian  . . . . 66 

Long  John  Silver . 68 

Robot  Nim . 70 

Night  on  a  Wild  Mountain . 71 

Victim . 71 

Evolution . 73 

Vic-et-un . 75 

Hangman . 77 

Codebreaker . 79 


Symphony  for  a  Melancholy  Computer ...  80 


Symphony  for  a  Meloncholy  Computer 


with  Zen  Show . 81 

Fairway . 82 

Jelly  Bean  Space  Swarm . 85 

Superpoet . 87 

Zauper  Attack . 88 

Superbowl . 92 

Zombie  Island . 95 

Motorcycle  Jump . 97 

Traffic  Jam . 99 

Hangman  11 . 103 

Antihang . 104 

Treacle  Balls . 106 

Craps . 108 

Caveman . Ill 

Tranquility  Base . 113 

Lodestar/3-D  Maze . 114 

Vincent  Van  Vic . 117 

Monza . 118 

Mento . 120 

Flip . 121 

Colormind . 122 

Cannibal  Charlie . 124 

Monte  Carlo  Molecule . 125 

Noughts  and  Crosses . 127 

Sepulcher  Organ . 128 

Speedway . 129 

Battle . 133 

Reverse . 135 

Space  Fighter . 135 

Zodiac  Fortune  Teller . 137 

Engulf . 139 

Reaction . 140 

Spacetrek . . . . 142 

Biorhythms . 145 

Billboard . 146 

Quack . 147 

Magic  Square . 148 

Simon . 149 

Roulette . 150 

Appendix— Error  Messages . 155 


iii 


Introduction 

The  VIC  20  is  an  exciting  computer,  designed  to  ensure  that  you  can  easily  make  the  most  of 
its  colour  and  sound  potential. 

This  book  has  been  great  fun  to  write,  because  the  VIC  "co-operates"  so  well  with  the  games 
programmer.  The  BASIC  is  fast  and  unambiguous,  the  range  of  noises  and  colour  effects  is  prac¬ 
tically  infinite,  and— despite  the  slight  limitations  of  the  large  graphics— allows  some  splendid 
screen  displays  to  be  created,  especially  with  the  POKE  command. 

Although  we  hope  you'll  enter  these  programs  as  we've  listed  them  here,  and  that  you'll  enjoy 
playing  them,  the  real  value  of  a  book  like  this  lies  in  what  you  do  with  the  programs  to  adapt 
them  to  make  them  your  own,  and  the  ideas  you  get  from  them  to  use  in  new  programs  of  your 
own. 

We've  tried  to  choose  a  wide  range  of  programs  to  show  how  flexible  the  VIC  can  be,  and  to 
give  you  some  ideas  of  the  kind  of  programs  you  can  write  and  the  easiest  way  to  achieve  the 
effects  you  desire. 

The  printer  reproduces  all  the  VIC  graphics,  and  to  make  the  listings  as  clear  as  possible, 
we've  printed  them  fullsize,  just  as  they  rolled  off  the  printer.  Despite  this,  some  of  the  colour 
commands  may  be  a  little  hard  to  fathom  out.  Here's  a  list  of  the  colour  commands,  along  with 
REVERSE  ON  and  REVERSE  OFF,  as  reproduced  by  the  printer.  This  should  help  in  reading  the 
listings: 

10  REM  BLACK 
15  REM 

20  REM  ,!S"  WHITE 
25  REM 

30  REM  "!*"  RED 
35  REM 

40  REM  "k"  CVAN 
45  REM 

50  REM  "i"  PURPLE 
55  REM 

60  REM  "ii"  GREEN 
65  REM 

70  REM  "3“  BLUE 
75  REM 

80  REM  "til"  VELLOW 
85  REM 

90  REM  "3"  REVERSE  ON 
95  REM 

100  REM  "S"  REVERSE  OFF 

We  must  pay  tribute  to  the  great  programming  contributions  made  by  Adam  and  Lance  Bur- 
bidge,  Christopher  Hutber,  M.  Kendall,  Graham  Charlton,  and  Ken  Mahogany.  Without  them, 
this  book  would  have  failed  to  explore  the  full  potential  of  the  VIC  20. 

Tim  Hartnell 
Mark  Ramshaw 
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Monster  Maze 

Y ou  start  off  in  a  maze  filled  with  dots  in  the  top  left  corner,  although  you  don't  actually  appear 
until  you  begin  to  move.  As  you  move  through  the  maze  eating  dots  you  gain  points. 

Soon  the  maze  monsters  will  be  after  you  and  you  must  take  evasive  action.  If  they  eat  you  the 
game  will  end,  as  it  will  if  you  eat  all  the  dots. 

Eating  one  of  the  large  red  cherries  means  you  can  go  and  eat  the  monsters  for  extra  points. 
But  after  a  while  they  will  get  over  their  shock  and  come  after  you  again.  They  are  coloured  purple 
when  you  can  eat  them. 

W  moves  you  up, 

A  left, 

D  right,  and 
Xfor  down. 

Good  monster  hunting! 


10  P0KE36879. 13 : 00=30720 : SO7680 : 01=38400 : POKE650, 253 
15  PRINT“!aHwnMMMi" 

20  FOR I «7702TQ8 1 64STEP22 : POKE I +00, 6 : POKEI , 97 : P0KEI+21+C0..  6 ■  POKEI+21 , 225 
25  NEXT :  P0KE8164,  252 :  PQKE8185,  254 
30  FOR  1*81  65T08 1 84 :  P0KEI+C0, 6 :  POkFT ,  98  =  NEXT 
35  PRINT"ins| . " 

40  FORI »7703TO8 1 43STEP22 : POKE I +00, 1 : POKEI , 46 : POKEI +19+00, 1 : POKEI+19, 46 
45  NEXT  '•  FOR  I  *8 1 44T08 1 62 :  POKE  I  +00 , 1  ‘•POKEI,  46  =  NEXT 

50  PRINT"?MD>IB1 . W  4.  an . . . *4.  Sftw " 

55  PRINT"III4.  .,04 . ... . SSI  " 

60  PRINT"llfe4,  SmS  Oa4.  SB  " 

65  PRINT"IIBfiSl4 . 601  14 . SO  " 

70  PRINT"I1BSI  1  linn  al.  361 " 

75  PR  I  NT  "1114 . SB" 

80  PRINT"  SB  '9mm*.  Iihb . ■*.  SUmST  " 

85  print"  6i  aai.  a  n . . .  so  m . " 

90  PRINT'S  SR  m,  SSI  mm#  fi»4.  SSI  14.  SB  " 

95  PRINT"  SB  I* -  SSHHiSrSB-SBB.SB" 

100  PRINT"  314.3*.  36114. . .  SB  aB.  6314.  " 

105  PRINT"  0  4.04.0  SI  Bwi4,  SB  B.  SB  14,  " 

110  PRINT"lifV— i  4-  ...O  SIB . SSI" 

1 15  PR  I  NT  "1114. . . .  SbbSI  1b  bS P  9*4,  3bb4  .  SSI  14" 

120  PRINT"I1Hbbb4.  0  4 . SSI  B.  SSI " 

125  PR  I  NT  "1114. ...  SSI  Bha*.  UVi»— n.S7 14.  SSI  " 

130  PRINT"I1Bbb-bST  14 . KSSB 14.  SSI  14.  SSI  " 

135  PR  I  NT  "1114 . .3  4.0  4. .  .SSI  B.  SO  B.SSI " 

140  PRINT"  SB 5&hi4. SbbhbJ  4. SSI bmbS4.  SBbH4.  SBb" 

145  PR  I  NT  "ISO" 

150  DIMX<2>,V<2),P<2>,0<2> 

155  FORIs0TO2:Pa)a32'-X<D=9+TV<D=12 
160  NEXT ‘-Vr Dai? 

165  C<0>*2--C<1>*5SC<2)*7 
170  DIMfl<2),B(2):FORI=0TO2 

175  PCI >=INT(RND< 1 >*3-1 ) = B( I  >-INT<RND« >#3-1 > : NEXT 
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185  P=7703 : S*10 : F«0 : 0=0 

200  FORI=0TO2 

205  GETR$ :  7.  FR*»  "  "  THEN230 

210  B=<R*="8M>-<fi$="B")+<(R$*"W,')-<fl$S!,,Xl,))#22 

215  I FPEEK  <  P+B  >  *46THENSB5+ 1 0 :  Q«Q+ 1  :G0T0225 

216  I  FPEEK  <  P+B ) ®8 1 RNBBO0THENF®  1 :  S«S+20 :  T I $»" 000000"  :  G0T0225 

217  IFPEEK(P+BX>88ORF*0THEN224 

218  FORPE*0TO2 :  IFSC+V(PE)#22+X(PEX>P+DTHEN223 
?19  S*S+50 

220  V(PE)=12 :X<PE)*9+J:P(PE)*32 

221  IFJ*1THENV(  J)**13 

223  NEXT • G0TQ225 

224  I FPEEK  (  P+D  >  O32THEND*0 : GOTO230 

225  POKEP ,  32  *•  P=P+B :  POKEP+CO ,  3  i  POKE P  ,  8 1 

230  PE*PEEK ( SC+  ( V < I ) +3 < I ) ) *22+X <! > +fl  < I > ) : T FPps32QRPE*460RPE*8 1 THEN300 
235  XaP-SC V«INTW22) : X»X-V#22 

240  B<I>-05fl<I>«0 

241  IFF«1THENB< I >■< V< I Y< I  »V> :  fl< I )*<X< I XX)-(X< I »X> : G0T0246 

245  Bn>*<V<I»Y>-<Y<IXY>  :fl<I)=<X<I)>X)-<X<IXX> 

246  PE*PEEK(SC+(Y( I )+B(I > >#22+X< I  HR a ) ) 

247  I FPE*320RPE*460RPE*8 1 THEN350 
250  B<I>«0 

255  PE®PEEK(SC+Y< I )#22+X< I )+fl( I )  ) 

260  I FPE®320RPE® 460RPE*8 1 THEN300 

264  fi<I)*0: IFFalTHENB<I)®<V<I)<V)-(V(I )>V) :GOTO270 

265  Ba>«<Y<i»v>-<vaxY> 

278  PE=PEE!«SC+(Y< I)+B( I ) >#22+X< I ) ) : I FPE*320RPE=460RPE=8 1 THEH350 
285  R< I)*INT<RND< 1 >#3-1 > ••*( I)*!NT<RMB( 1 >#3-1 > 

290  PE=PEE<< < SC+  < V (T y +B ( ! ) > #22+X (D+fid)) 

295  IFPE®320RPE*460RPE®8 1 THEN350 

299  fla>«0:B(I>=0 

300  I FRND  (IX.  5THEN345 

301  X®0:V®0 

305  IFB<  I  X>0THEN320 
310  V®1 ■ IFRNB< 1  >>* 5THENY®-1 
315  G0T0325 

320  X®1 :  IFRNB(l».5THENX*-i 

325  PE*PEEK <  SC+ ( V  < I ) +Y  > *22+X <I>+X> :  7. ppp=3?0RPE=4!S0PPF=8  1 TUFN335 
330  V=-V:X=-X:PE®PEEK(?C+<Va>+Y>i?2+X(n+X> :  I FPE032RNBPE046RNDPE08 1 THEN350 
335  fi< I )*X : B< I )®V : GOTO350 
345  IFRNB( 1 ».  8THEH235 

350  POKESC+Y( I >#22+X( 0,8(1): POKFCL+V< I >#22+X< I  >  .•  1 

351  TPP<  t ) =3 1 THENFOKECL+V  < I )#22+X< I ) , 2 

355  V<I)®V<I)+BC!):Xa)eXa)+Ra):pa)sPEEK'(SC+Va>#23+X(T't) 

356  IF3C+V< ! )#32+X( I >*PRNBF*0THEN100R 

360  POKECL+Y < I > #22+X ( I ) , C< I ) : POKESC+Y< I >#22+X< I ) , 88 

361  I FF« 1 THENPOKECL+V ( I )#2?+X< I ) , 4 

365  NEXT: IFTI#>"000015"THENF«0 

366  I FQ>2 1 6THFN 1 000 
370  GOTQ200 

1000  PGKE650  >  0 : FOR I ® 1 TO2000 : NEXT 
1005  PRINT"n«CORE"S 
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Hyperspace  Escape 

Sail  boldly  through  space,  zapping  the  asteroids  and  the  alien.  Watch  out  for  the  UFO, 
colliding  with  him  or  one  of  the  asteroids  wastes  one  of  your  3  lives. 

Z  rotates  you  left, 

C  rotates  you  right,  and 
M  thrusts  you  forward. 

'return'  will  hyperspace  you  to  another  part  of  space,  and 
'space'  will  fire  your  laser  cannon. 

How  many  points  can  you  gain  by  shooting  asteroids  and  aliens  before  you  are  destroyed? 

5  S=0 : LI =3 : P0KE36879, 8  =  PRINT'D" 

10  SO7680 :  CO30720  *  CL-38400  '• 

19 

16  Vail  :V=10IIJ«1ISX-0I8V*0 

28  Rifl 

29  FORI-0TO7 » FK I >-7680+INTCRNDC 1 >9506) s DC I >»INTCRNDC 1 >93+21 >  s IFRNDC l ».  5THENDC I > 
—DC  I) 

30  NEXT 

35  P0KECL+Y922+X, 3  =  PQKESC+Y922+X,  107 

36  IFflS>0THENPOKEflS<32 

40  fiD=  I  NT  <  RND  <  1  >  93+2 1  > :  IFRNDC  l».5THENflD»-flD 
45  flS*INT CRNDC 1 )9506)+76S0 

50  FnPl=0Tn7 :  kfsPEFKC  197)  ’•  I FflBS < SX )  +PBS < SV ) “0THENPQKE36877 ,  0 :  G0TQ55 

51  P0KE36878/2 : PQKE36877, 235 : G0T055 
55  D*D+  <  K»34 ) - C K*33 ) s IFIK0THEND-D+4 
60  IFD>3THEND-D-4 

65  SX*SX+( (Dsl )-<D*3) >8<K=36> : S't-SV+C CD*2)~CD®0> )9CK*36) 

70  IFSX<-17HENSX— 1 
75  IFSX>1THENSX®1 
80  I FSV<- 1 THENSY— 1 
85  IFSV>1THENSV»1 
90  P0KESC+V922+X, 32 : X*X+SX : Y*Y+SY 
95  IFK®15THENX»INT CRNDC 1)922) : Y*INT CRNDC 1 >923) 

100  IFX<0THENX»21 
105  IFX>21THENX»0 
110  IFY<0THENV*22 

115  IFY>22THENY«0 

1 16  I FPEEK  C SC+Y922+X ) 032THEN 1 000 
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120  PQKECL+V$22+X*  3 : 0107 : IFD*2THENCal 14 
125  IFD«3THENC*115 
138  IFD*0THENO113 
135  P0KESC+V#22+X,C 

140  IFR< I >»0THEN200 

141  IFR< I >aSC+V#22+XTHEN1000 
145  POKER( I ) ^  32 : fl< I )»fl< I >+D< I ) 

150  IFR<  I  X7680THENfl<  I  >=R<  I  )+506 
155  IFR<I»8185THENfi<I>«fl<I>-506 
160  POKEfl«>+CO,2:P0KEB«>,81 

200  IFKO320RINT ( I/2>lfe2aITHEN260 

201  PQKE36878* 12  s FORXl*255TQ2303TEP-l : P0KE36877, XI : NEXT 

205  XlsX:VlsV:DX*<D«3>~<D*l>  :DV«<DS»0)“<D*2)  :C*64:  IFDVO0THENC*93 
210  X1»X1+DX: V1*V1+DV 

215  PQKECL+Y1#22+X1  ,  5 '•  IFPEEK<SC+Y1*22+X1  )-32THEN240 

216  P0KE36878, 15 : PQKE3S877, 130 
220  P0KESC+V1#22+X1,42 

225  FQRJa0TO7 s IFRCJ) »SC+Y 1 #22+X 1 THENfl*R- 1 : fl<J)=0 : S=S+20 

230  NEXTJ 

231  I FSC+ V 1 #22+X 1 *RSTHENS*8+ 1 00 : RS«0 

232  POKE36877.0 
235  8OTO250 

240  PQKESC+Y1*22+X1 , C  : I FX 1<2 1 RNDX 1 >0RNDV 1 <22RND V 1>0THEN210 

250  X2«X • V2*V 

25 1  X2*X2+DK  =  V2*Y2+DY  s PQKESC+Y2#22+X2 , 32 

255  I FX2CX 1  OR V2<> V 1 THEN25 1 

256  POKE36877,0 
260  IFRS*0THEN300 

265  POKERS > 32  =  IFRND< 1 ) > . 9THENRD® I NT  <  RND< 1>#3+21 > : IFRND< 1 ». 5THENRD*-RB 

267  RS*RS+RD :  IFPEEK<RS+RD*2)a81THENRDa~RD 

270  I FRS<7680THENRS®RS+506 

275  IFR8>8185THENRS*RS-506 

280  POKEfiS+CO , 7 : POKERS , 88 

285  I FRSaSC+ Y*22+XTHEN 1 000 

300  NEXT I : IFRS0THEN20 

305  IFR3a0fiNDRNIKO>.9THEN40 

310  GOTO50 

1000  PRINT"HSCQRE"S 

1085  FORI ■ 1 TO2080 :  NEXT :  1. 1  «*L  I  - 1  =  IFLI>0THENPRINT"T  :G0T016 
1010  POKE  198.-0 
9999  END 
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G  unfight 

Outshoot  the  fastest  draw  in  town,  VIC.  Move  up  and  down  the  screen,  avoiding  the  VIC's 
shots  and  fire  back. 

Z  moves  your  cowboy  up, 

C  moves  him  down,  and 
M  fires  your  revolver 
Good  shooting,  pardner. 


5  r^iibiibiihiiiibibiiiih 

10  P0KE36879; 136 : PRINT"T 
IS  CO30720 :  SPa0  *•  8C*0 
20  BP"0 : BC*0 ! P*4 : C"12 

25  FOR I a7689T08185STEP22 : P0KEI+C0.5 : PQKEI+i+CQ, 5 : P0KEI+2+C0/5 
30  POKE  I  i  160 :  POKEI+1, 160 :  POKE  I +2^  160  *•  NEXT 
50  KaPEEK(197) : IFK-64THEN100 
55  P"P+<K-33>-<K«34>iIFP<2THENP»2 
60  IFP>16THENP*16 

65  PRINTLEFTf  (Df  j P-1  > "  nil*  ■««  0111k  .SI  Mllllift  Tt"i 

70  PR  I  NT 11  mill  TIBI  >  9k  "HUM  BP  I  ft  mill 

100  IFRND<  1 ».  3THENOC+INT <RND< 1 )#3~1 )  '•  00T01 10 
105  IFRND< 1 ». 6THENCaC+  < C>P ) - < C<P ) 

110  IFC<2THENCa2 
115  IFC>16THENCa16 

120  PRINTLEFTKBf  >C-l);LEFT$<fl$>  17)"  01111  iA1»IIIII1I  ill  nillliSk  lk"i 

125  PRINTumillVMaBna  mill*  BP  B&  mm  11 
130  IFKO36THEN200 

135  PRINTLEFTf(B*,P)"l  S’ ft  Bilk  .S’fcaSOHIIkJP.tf  ■ 

140  print '’min  wm  muisrw  am* 

154  PQKE36878, 14: P0KE36877, 135 : F0RIalT075 : NEXT 

155  Ia4;Ka64 

168  PEaPEEK  < 7680+P822+ 1 ) 

165  PRINTLEFT*<D*,P+i>JLEFT$<R*,I>"l." 

170  FQRJalTO10!NEXT 

175  PRINTLEFTKDf  /  P+1 )  l LEFTKRBb 1  > "  " 

180  I»I+1 

181  IFIM0THENPQKE36877;  0 

182  IF1>6RNBI<1 1THENPQKE36877, 200 : P0KE36878, 5 
185  IFI<22RNDPEa32THEN160 

190  IFPEa32THEN200 

195  P0KE36877, 250 : FORJalTQ50  =  NEXT : P0KE36877, 0 
197  I F  <  PaCQRP+ 1 aC ) RND I > 1 6THEN400 
208  IFRND<  1 K.  95RND<RND<  1 X.  80RRBSCC~P»1  JTHEN50 
205  1*16 

210  PRINTLEFTKDf;  OiLEFTKfi*.  19)  "M .8 "mifcft RM « " i 

215  PRINT'miM  I  VIIIIB  IBM  11 

216  PQKE36878, 12  =  PQKE36877, 135 : F0RJ-1T075  =  NEXT 
220  PEaPEEK  < 7680+C822+ 1 > 

225  PRINTLEFTKD** C+l ) > LEFTKfif ;  I )  "I. " 

230  FORJalTO10!NEXT 

235  PRINTlEFT$<D$,C+l>;L£FT$<fl$,I>"  " 
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240  1*1-1 

241  I F I< 1 2flND I >7THENP0KE36877 1 200  =  P0KE36878, 5 

242  I F I <8THENP0KE36877  > 0 

243  I F I >0ANDPE*32THEN220 
230  IFPE*32THEN50 

252  PQKE36877, 250 : FQRJ*1TO50 : NEXT s P0KE36877, 0 

253  I F  <  COPANDC+ 1  OP )  OR  I  >4THEN  1 20 
253  SOSC+1 

300  PRINTLEFT*<D$;C>"  Mill  MINI  Hill i  Ha"; 

305  PRINFMIIIIHak-W"  MIIIB 


310  F*1 
315  GOTO 1000 

400  PRINTLEFTK Wi  C) ;  LEFTKflf  / 17> "  Mill  Mllll  UIIMa  Oh11; 
405  PRINT"]0IIIMi  ■  IIHI  a" 

410  F*2 : SP*SP+l 


1000 

1001 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1015 
1020 
1025 
1030 
1035 


POKE36078, 13 : P0KE36876, 200 : FORI*255TO130STEP-1 . 3  s P0KE36877, 1 : NEXT I 
PQKE36877, 0 : PQKE36876, 0 : FQRI-1TQ300 s NEXT 

PQKE36878, 12 : P0KE36876, 140 • FORI»1TO450 : NEXT : P0KE36876,  0  =  FOR1«1TO100  =  NEXT 
P0KE36876* 152 : FORI-1TO430 : NEXT : P0KE36876, 0 : FORI*1TO150  =  NEXT 
P0KE36876, 140 « FORI*1TO150 s NEXT : PQKE36876, 0 : F0RI*1T075 : NEXT 
P0KE36876. 141 :FORI*1TO700:NEXT 
POKE36876,0 
I FSP*50RSC*5THEN 1 020 
I FSP*5QRSC*5THEN 1 020 
IFF-1THEN120 
IFF-2THEN65 

PRINT"  !3MID0iVICOI1PUTER 11  sc 
PRINT"  IMMIIIIIVIII  tWIWOU "  SP 
POKE 198^0 
END 


Scramble 

Bomb  the  enemies  defense  installations  and  shoot  down  the  fighters  for  points. 

As  you  move  off  the  right  of  the  screen,  you  appear  on  the  left  of  a  new  landscape.  Avoid  the 
enemy  rockets  and  fighters  as  they  stream  through  the  skies.  The  small  red  balls  are  fuel  dumps 
and  the  large  circular  objects  on  stilts  are  ammo  dumps. 

Bomb  the  club-shaped  alien  base  to  gain  extra  points. 

W  moves  your  ship  up, 

A  backs  it  up, 

D  accelerates  it  forwards  (it  is  already  moving  forwards), 

X  moves  it  down, 

S  drops  a  bomb,  and 
'space'  fires  your  laser. 

Be  careful  not  to  crush  into  anything  and  try  and  avoid  the  flak  thrown  at  you  from  the  ground 
installations. 


I  L8*l 

5  POKE650..235 

1 0  P0KE3S879 , 8 :  rn=307Cfl :  a-38400 :  SO7600 

II  x=0 :  V*5  '•  B**0 :  S®0 

12  DIMM54C3)  , FX<3) ,BX(3) 

15  IFLR>3THENLfi»l : RESTORE 

16  ONLflQOTO20,55, 100 

20  PRINT" riBBSDOOfflBBOT  TVHWS  WrunVMliM" .: 

75  pr tut''* m/i  nm v mi ^ smhii i  an i  hiis h^ht^u^hv ; 

30  print"  sun  'll!  ^mi  a)mm  i  him  ■  hi  % 

35  print"im  nvn" 

40  POKE38902, 5 : POKE30903, 5 • POKE30904, 5 • POKES 182, 124: POKES  183. 120 -POKES 184, 120 
45  P0KE7996+C0 , 3 : P0KF79% . 78 : P0KE7926+C0 , 3 : P0KE7926 , 78 
50  POKES  1 40+CO , 3 : POKES 1 40 , 77 : POKE8070+CO , 3 : POKE8070 , 101  :QOTO150 
55  PRINT" n  ni  iff  1""  i 

60  print",  mi i/ii  m  v mi  rs hmuikhih vm n m "  > 

65  PRTNT'-TIUSWVHIIIIIMr"; 

70  print" wwi mm"; 

75  PRINT"^llMrVB8Winiilli;'7VTil " 

88  P0KE88 1 1 +00,3: POKE80 11,77: POKE8024+CO , 3 : POKE8024 , 77 
85  P0KE7959+C0, 3 : P0KE7959, 100 : POKE7901+CO, 3  =  P0KE7981 , 74 
90  PQKE7920+CO, 3 : POKE7920, 77  s  GOTO 150 

100  print » naroaro^^  hi  hi  irwilwlirimiiiinfwi  hi  hi  hi  11  ; 

105  PRINT"HM  Bafl  M  *  nil  ITH nWinSYIVHWhl Tlinfllb  ; 

110  PRiNT"iinH  nwiiMiniwiiirs  nr1; 

115  PRINT" IVHMbnillbfflw" 

150  FL«4!FIa»4 

165  FORI*0TO3 : FX< I ) “7767+ I 144 : IFI*1THENFX< I )“FX< I )~1 
170  IFI«2THENFX< I )«FX< I >-47 
175  IFIb3THENF«<I>F5*<I>-44 
188  REflDBXC I):MX< I )»BX< I ) 

195  NEXT 
200  FORI-0TO3 
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201  POKESC+V022+X,  32 :  GETRI  :  IFB-0THENPOKE36876, 0 
205  X-X+l+<R$-"fi"  >*2~<R*-"D"  > :  IFX<0THENX*0 
210  IFX>21THENX-0!LF*LF+i:GOTO15 

220  V®V+(R$-"W">**<R$-"X"> ! IFV<0THENV-0 

221  IFV>22THENY*22 

225  I FPEEK  <  SC+V# 22+X ) 032THEN 1 000 
230  P0KECL+Y822+X/2 : P0KESC+Y*22+X, 62 
235  IFFX< I >-0THEN250 

240  POKEFX< I>,32;FX( I >-FX< I  >-l : IFFXCI X7680THENFXC I >*FX< I >+88 
245  POKECO+FX <1 > , 1 s POKEFXC I  > ,  60 
250  IFMX< I >«0THEN300 

255  IFMXf n=BX(I >RNDRND<1  X. 90RBX< I >-0THEN300 
260  POKEMX< I ) ,  32 : 11X<  I >«MX< I  >**22 

265  IFMXC I X7702THENPOKEMX< I > , 32 : MX<I ><*BX< I > : POKEMX< I >+CO, 3 : POKEMX< I > , 30 : OOTO300 
270  POKEMXC I >+CO, 2 : POKEMX< I >-22+C0, 3 : POKEMXC I ) >  22 : POKEMX< I >-22/ 30 
300  IFRi-"S"RNDB-0THENB-8C+Y*22+X+22 

355  IFB-0THEN400 

356  POKF3S878, 5 s P0KE36876, BX25-75 

360  POKES, 32 : B-B+22. 5 s  IFPEEK<BX>32THEN365 

361  I  FPEEK  <  B+ 1  >  -32THEN395 
363  B-B+l 

365  P0KE36878, 15 : P0KE36877, 175 

356  P-PEEK(B)  >  OPEEK(B+CO> : POKEB+CO,  2 :  PQKEB,  42 :  B-INT<B> :  IFPO60THEN375 

370  F0RJ-0TO3 : IFFX<J>-BTHENFX<J>*0 : P-32 : S-S+20 : FI-FI-1 

371  NEXT: 0010390 
375  JFPO30THEN385 

380  FORJ-0TO3  s  IFB«MX< J>-22THENP0KENX< J> ,  32 :  MX< J)-BX< J>  P-32  '•  8-8+10 

381  NEXTJ 

385  I FPO 1 20THEN388 

386  FORJ-0TO3 : I FB-BX <  J  >  +22THENP0KEMX < J > , 32 : P0KEPIX<  J>-22, 32 : BX< J>«0 : S-S+30 

387  NEXTJ 

388  I FP- 1 0 1 0RP-770RP-780RP* 1 00THENP-32 s FL-FL-1 

389  IFP>72RNPP<7fSORP-85THENS-S+50 :  P-32 

390  IFP-81THENS-S+100 ' P-32 

391  I FP-88THENS-S+500 : P0KE36879, 25 : FORJ-1TO100 : NEXT : P0KE36879, 8  s P-P+128 

392  FORJ-1TO100 : NEXT  s POKES, P » POKEB+CO, C : B-0  s P0KE36877, 0 : BOTO400 

395  IFB>8185THENB-0 • OOTO400 

396  POKEB+CO, 1: POKES, 46 

400  IFRfO"  "THEN460 

401  P0KE36878, 15:FORX1»255TO230STEP-1  •  P0KE36877 .•  X 1 :  NEXT 
405  X1«INT<X>+1 

410  POKECL+V022+X1 , 7  s IFPEEK<SC+V#22+X1 >-32THEN440 

41 1  P0KE36877, 135 : P0KE36874, 205 

415  P-PEEKC8C+V022+X1 > ‘ POKE8C+V022+X1 , 42 

416  I  FP- 1 0 1 0RP-770RP-7S0RP- 1 00THENFL-FL*  1 ! P-32 

417  I FP>72RNDP<76ORP*85THEN8-8+50 s P-32 

418  I FP-8 1 THEN8-8+ 1 00 • P-32 

420  pnp.T*0TO3!  IFFX<!J>-8C+V022+XlTHENFX<J>-0: 8-8+20 JFI-FI-1 :  P-32 

425  I FBX < J >  +22-SC+ VIK22+X 1 THENPOKEMX <  J  > , 32 * POKEMX< J>-22, 32 : BX< J>-0 : 8-8+30 : P-32 

430  I FMX < J > -22-SC+ Yt22+X 1 THENPOKEMX < J > , 32  s MX< J>-BX< J> : 8-8+10 : P-32 

435  NEXTJ 

436  POKESC+V022+X1 , P : Xl-Xl-1 : 00T0445 

440  P0KE8C+V#22+X1  .fi4:Xl»Xl+l :  IFXK22THEN410 
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4*1  Xl*22 

443  P0KE36874 ,  0 :  FOR J*X+ 1 TOX 1 :  P0KE8C+V422+ J ,  32 '  NEXT :  P0KE36877 ,  0 
453  F»7680+!HT <RNB< 1 )*330) s I FPEEK < F > <>32flNDPEEK < F ) O32THEN500 
460  NEXT I s IFFL-0THEN500 

465  F»7680+INT<RND< i  )#330) :  IFPEEK<FX>32flNBPEEK<FK>62THFK«aoi 
485  POKEF+CO,  4 :  P0KEF  •  42 :  pod  t-i  :  ueyT :  TFF*cr+V*??+XTHPN  1.000 

*80  P0KEF,32 

495  POKEF+CO ,  4 :  POKEF ,  42 :  FOR  J*  1 T0?5  •'  NEWT :  r  ffb<sc+V#22+MTHFW  1 000 

496  POKE* >32 

508  IFFI>0THEN200 

505  FORI*0TO3 : FX< I )-7767+I#44 : IFI*1THENFX< I)=FX< I >-l 
510  I F I *2THENFX  < I ) *FX ( I ) -47 
515  I F I *3THENFX < I ) »FX < I ) -44 
520  NEXT I : F I »4 : OOTO200 

1 000  POKE650 ..  0  =  P0KE368**  •  1 30 :  wymr^fP? ,  1 30 :  P0KF36878  >  1 5 
1 0105  P0KECL+V#22+X ,  2  ■  P0KESC+V*22+X ,  *2 
1010  FOR I * 1 TO750 : NEXT 

1015  PRINT'"TSrnRF''<5 : P0KF3887* ,  8 : P0KF36A76 ,  0 :  P0KE36877, 0 : P0KE36878, 0 
2800  BPTP7902, 7972, 8090, 8161 
2003  BRTR7992, 7976, 8023, 7917 
2010  BPTP8036 ,8107,8110,7913 


Alien  Maurauders 

Stop  the  maurauding  aliens  before  they  overun  your  planet.  You  start  out  with  three  lives,  how 
long  can  you  last? 

Z  moves  you  left 
C  for  right 

and  M  to  fire  your  laser  cannon.  Good  luck! 


1  HS*8 

5  SC=0  ••  B=1 :  F=*0 :  IN®0  =  OO8UB1000 :  G0TQ35 
8  FQRI*1TO2000  =  NEXT « IN-1N+1 : OOSUB1005 

35  IFF-1THEN505 

36  PQKE36878, 10:PQKE368?4> 132 

37  FORJB0TO2 
48  KPPEEKU97) 

45  I FK>32flNDKC33THENGOSUB300 
50  IFSO0THEN8OSUB400 :  GOTO  100 
70  IFK"36THENS*G~22 :  GOSUB400 
100  GOSUB600 

200  NEXTJ ' P0KE36874, 0 : FORV*0TQ3  s FORX«0TO3 : IFfl7i<V< X)b0THEN250 
205  Z*flX<  V,  XW680  =  Zl»INT<ZX22>  •'  Z*Z-Zli22 

210  PQKEflXCY, X) *  32 :  POKERXCYj X3+1  1 32 

211  IFZ-Xi4«0RZ-X#4>6THENDXCViX)p-l»«V/X>  ■flX<Y,X)*flX<Y,X>+44 
215  flX<Y/X>«flX<Y,X>+]»iCY*X> 

217  POKERXCVj  XJ+CQ, V+2 • POKEflXC V< X>  <  255 

220  P0KEflX<V,X>+C0+l.V+2'P0KEflX<V,X>+i, 127 

221  IFfiXCY, X)>8142THEN500 
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225  K-PEEK<197>  s I FK>32flNDK<35THEHQOSUB300 

226  I  FK*«36flNDS**0THENS*O~22 
236  IFSQ0THENSO8UB400 
235  C»C+1 

250  NEXTX; V : IFCa0THEN8 

251  C*0 : FORX-0TO3 : C«C+RX<PQ; X) J NEXTX f IFC«0THENPQ«PQ~1 : IFPO<0THEN8 
255  0OT035 

300  POKES- 1 / 32 : POKES* 1 / 32 

305  GaG+(K*33}-(KP34) :  IFQ<8143THENG«0143 

310  IFS>8162THEN0-8162 

315  PQKEO-l+CQ;  3  '•  PQKEG-1  >112  =  PQKEQ+CQ;  3  s  POKES;  113  •  POKES t CO tl ;  3  *  POKEO+l  >110 
320  RETURN 

400  POKES;  32 :  8**8-22  '<  IFS<7680THENS"0  <  POKE36077 ; 0  ? RETURN 

401  PQKE36877; 153>P0KE36S78> 6 
405  1FPEEKCS)032THEN415 

410  POKES t CO > 5  >  POKES; 93  >  00T0465 

415  P0KE36877i 175 1P0KE36878; 15 

416  P»PEEK<S) : PQKES+CO;  2  s POKES; 42 i IFP- 1 60ORP-95ORP" 1 05THEN460 

420  POKES- 1  ; 32 :  POKES* 1 ; 32 

421  PQKE3687B; 15 : PQKE3S877; 200 
425  IFP»127ORP«255THEN450 

430  FQRX1-0TQ2 : IFS«*SX<X1>TMEN8CpSC*5 ! SXCX1 )«0 
435  NEXTX1 
440  GQTO460 

450  FORVl*0TQ3 :  FORX1»0TO3  '•  IFRXM 4 XI >«SQRAX<Y1  ;  Xl>+i«STHENfWCYi ;  XI  )»0  s  SC«SC+10HK 
IN+1) 

455  NEXTXIjVI 

460  POKES; 32 : S-0 : PQKE36677; 0  s PQKE36878;  0 : PQKE36877;  0 
465  RETURN 

500  FORI«1TO1000:NEXT 

501  PR I NT "3" : P0KE36878; 42 : PRINT"fl#lllTHE  INVADERS  LAND**" s GOTO509 

505  P0KE36878; 15 s P0KE36877; 150 s POKES- 1+CO; 4  s PQKEG+CO; 4 : PQKEO+l+CO;  4 

506  POKES- 1 ;  223 :  POKES;  223 :  POKES* 1;  223  '•  FQRI-1TO1080  •  NEXT  :  P0KE36677;  0  •  P0KE36878;  0 

507  B*B+1 s IFB<4THENPOKE7680; B+48  = F*0 : P0KE36877; 0 : 00T035 

508  FORI*1TQ1000 ; NEXT : PRINT : PR I NT"  ZHOU 'RE  HERD" 

509  PRINT : PRINT : PRINT" VOU  SCQRED"SC:POKE36877;0:PQKE36878;0 

510  I FSC>HSTHENHS*SC 

511  PRINT"HIOH  SCORE*3 11 HS 

513  PRINT "PRE8S  fl  KEV  FOR  ANOTHER  SAME; SPACE  TO  END" 

514  0ETA4 :  IFAfO"  "THEN514 

515  SETA$  s  IFA$»"  "THEN515 
520  IFA*»"  "THENEND 

525  SC»0  =  B«1 : F-0 : IN*-1 s PRINT"3" : 00T08 
600  IFSX<J»0THEN615 

605  S8*INT CRNDCD04) ;  IFRXCPO;  SS)**0THEN635 
610  SX<J>»RX<P0;SS>+22 

615  POKE8X<J>;32:SXa)ffSX(J>4>22iIFSX<J»8163THENSX(J)-0:OOTO635 
620  IFPEEKCSX(J))»112ORPEEK(SX(J))-113ORPEEKCSX<J))«110THENF«>1 
625  I FPEEK <  SX ( J ) ) Q32THENP0KESX <  J  ) ;  32 :  SX< J>»0 
630  P0KE8XC J)*CO;  6 :  PQKESX( J) ;  93 
635  POKE36877;0! RETURN 

1000  PRINT "3" :  CQi30720 :  DIMRXQ;  3) ;  DX(3; 3)  i G«8144  5 P0KE36879;  8 

1001  DINSX(2) 
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1009  POKEG+CQ-l  >  3 s  PQKEQ+CQ>  3  !  PQKEB+CQ+l  >  3 s  PQKEQ-L 1 12 :  PQKEG>  1 13  :POKEQ+l>  110 

1010  FQRI*8164TQ8185 « PQKEI+CQ>  6 ;  POKE!  4 160 = NEXT  s  P0«3 
1015  F0Ryi0TQ3 ! FORX*0TO3 

1020  RX ( V >  X ) *768 1 + VI66+ 1 NI44+XI4  ?  »KV«X>*1 

1021  NEXTX* V 

1022  XFZN)0THEN1851 

1025  FQBV*8832T08891STEP22 : FQRX*2T0168TEP7 
1030  PQKEV+X+CQ*  7 :  PQKEY+X+l+CO*  7  5  PQKEVtX+2+CQ*  7 
1035  PQKEY+X> 160 : POKEY+X+1 >160 J PQKEY+X+2> 160 
1040  NEXTX* V 

1045  FQRX"8100TQB1 15STEP7 : PQKEX+CQ*  7 s PQKEX+ 2+CQ* 7 

1050  PQKEX* 105 : PQKEX+2* 95 s NEXTX 

1051  FORX*0TQ2:SXCX)P0» NEXTX 

1052  POKE38400*  1  i  PQKE7680*  B+48 
1055  FORI*1TO2000  *  NEXT : RETURN 


Airplane 

Attempt  to  land  your  passengers  safely  on  the  runway  at  La  Guardia  Airport. 

When  the  distance  reads  0  on  your  instrument  panel,  you  have  reached  the  runway.  You  have 
to  stop  before  you  have  passed  200  units  of  the  runway  (when  the  display  reads  -200). 

The  numerical  keys  determine  your  rate  of  acceleration,  0  means  you  are  gliding.  'Space'  puts 
on  your  air  brakes  and  'S'  lowers  your  undercarriage.  'Return'  will  raise  your  undercarriage  and 
switches  off  your  air  brakes. 

'W'  raises  your  plane's  nose,  'X'  lowers  it. 

'R'  and  'D'  alter  position  compared  to  the  horizon.  This  may  also  be  altered  by  the  wind.  This  is 
shown  on  the  artificial  horizon  to  the  left  of  your  instrument  board. 

Good  luck.  It  may  take  practice  to  land  correctly.  I  can't! 


1  P0KE36879, 8  =  PR  I  NT  "T : P0KE650, 255 
5  FOR I =384001038986 : POKE I > 7 
10  NEXT 
15  F0RI=1TQ13 

20  P0KE7845+ 1 #22+ 1/1.7* 1 08 :R0KE7845+ 1*22-1/1. 7 * 123 
25  IFINT<I/2>#2*ITHENP0KE7845+I*22* 101 
30  NEXT I 

35  PRINT"SHRIR  SPEEBHIIIIIRIIPLTTTI  mruilfllllUrc I STflNCEHSJW^HMir  i 

40  PRINT"!!! _ " 

45  F0RI*1T014:PRINT"»I  l»>»»>l»»l>»*l  I" 

50  NEXT 

55  PRiNT"»»ti»n»i»*n»»nnii . —  mini i  immii-*- \m*m" : 

60  PRINT"  I  niiliil' - 

65  PR  T  NT  "  mWMBRTT I  TUBE  " 

70  PRINT")flJNDER)(llM0ICflRRRIOE : " 

75  D« I NT  < RNB < 1 ) *3000 >  +4200 : H=3000+ 1 NT  <  RND  < 1 ) *500-249 ) : TH-0 : RB*0 
80  V*200 : P*0 : P“0 : U=0 

100  D*D-V/36 : H*H~2+<fl#VV5  =  IFFl*0THENH*H+V/200 

101  I FV>400THENW*400 
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105  V»V-.  5-U/20+  ( H<4 ) P2-ABP3 :  IFRNBC  1  )>.  95TMFNP»P+  T  NT  (  RND <  1  >*3-1 ) 

110  !FV<r0TWFNV®0 
1 1 5  RFTfif : fl»R- <fl«a"W")+<fl*-"X") 

120  IFfi*®CHR*<13>THENU«0:flB*0 

121  IFfl$»"  "THENflB®! 

125  IFR01THENA®-1 
130  IFR>1THENR«1 

135  V*V+TH ! I FVRL  <  fl$  ) >0ORA$ ® " 0 " THENTH*VAL  <  fl$ ) 

140  p«p+<fl$a''fl''>-<fl$a"D") 

145  I FP<- 1 THENP®-* 1 

150  IFPMTHENP-l 

151  I Ffl$» " S " THENU® 1 

155  PRINT"J»BPBPPBBBH";INTCV>;"1I  » 

160  PRINT"liPPBBBPPI"  i  INT <H>  >  "II  11 
165  PR  I HT "  IPPBBBPBBI"  >  INT<D) i 11 II  " 

170  PRiHr'diiiiiMiBW";  ifr®ithenprint"\"  ; 

175  IFA®0THENPRINT"-"; 

180  IFA—1THENPRINTV"; 

185  PRINT”IW*ffl" 

190  PRINT" JPPPBPPPPBI" ; :  !FU®0THENPRINT"UP  " 

195  I FU» 1 THENPR I NT " DOWN " 

205  PRINT" JOmiPPP VPP WIBtIBMNil  Hill  II  Mill  "j 

210  PR  I  NT"  mill"  J 

215  I FP®  1  THENPR  I  NT "  MMHV' 

220  I  FP®0THENPR  I  NT "  JHh" 

225  I  FP*- 1  THENPR  I  NT "  JSA/TV/" 

235  IFH<1THENH*0 

240  I FD>0RNDH«0THEN250 

241  I FV®0RNDH®0THEN250 
245  IFD>~200THEN100 

250  S*100 i FORI*1TO3000 : NEXT  t PR I NT "T 

235  I FD>0THENPR I NT " VOU  MISSED  THE  RUNWRV" : S®S-80 : GOTO300 

260  I FD<-500THENPR I NT " VOU  OVER  SHOT  THE  RUNWRV" : S«S-60 = GOTO300 

265  I FPO0THENPR I  NT "  VOUR  WINO  SCRRPED  THE  GROUND"  ■'  S»S-50 ;  OOTO300 

270  I FR< 1 THENPR I NT " VOU  BELLV  FLOPPED" =  S-S-50 : GOTO300 

275  I  FPO0RNDH<4THENPR  I  NT "  VOUR  WING  TIP  HIT  THE  GROUND"  =  S«S-75 :  GOTO300 

280  IFU®0THENPRINT"VOUR  UNDERCARRIAGE  WASUP" : S»S-75 = GOTO300 

285  I FV> 1 0THENPR INT" TOO  FAST"  =  S®S-25 : IFV>25THENS*S-25 

290  I FS« 1 00THENPR I NT " A  PERFECT  LANDING" 

300  PRINT"VOU  SCORED "S 
305  POKE650.0:END 
1000  F0RI*1T013 

1005  PQKE7845+ I #22+ I / 1 .  ?>  108 :  PQKE7845+I#22-I/’l .  ?>  123 
1010  IFINT < I/2)P2*ITHENP0KE7845+IP22/ 101 
1015  NEXT 


Marathon 

Sit  back  in  your  armchair  at  home  and  bet  on  the  greatest  athletes  the  world  has  ever  seen. 
Place  your  money  on  one  of  the  three  athletes  and  watch  the  race.  Then,  if  you  are  lucky, 
collect  your  winnings. 

The  game  continues  until  you  are  broke  or  you  break  the  bank. 

Can  you  choose  the  winner  from  the  odds  given? 


2  P0KE36879.-8 

3  MO* 100 

10  PR  I  NT "  rj*Mf#kflTHLETE  GAMBLER  W*##" 

20  PRINT"  - " 

30  PRINT"1WHAT  IS  VOUR  NAME*" 

31  INPUTA# 

32  F0RI-1T03 : 0D< I >INT<RND<  1  )#6)+l  '•  NEXT 

35  PRINT'TWQU  HAVE  £"M0 

36  PRINTA# 


coe  iroDavvr 
OVET  H"QD<2)V1" 

WELLS  H"QD<3)V1C 


THE  ATHLETE?" 

130  INPUTR 

135  I FR< 1 QRR>3THEN 1 30 
200  PRINT"T :P0KE36879< 170 
210  F0RI*1T022 

220  FORJ*7680+I#22TO7689+I#22-INT< 1/2.2) s POKEJ+30720,0 : POKE J, 81 : NEXTJ, I 
225  F0RI-1T022 

230  FORJ*7701+< I #22 ) T07692+  < I #22 ) + 1 NT < 1/2. 2)STEP-1 : POKEJ+30720, 0 : POKEJ, 81 : NEXTJ, 
I 

235  PRINT" MSB  ##THE  RACE## 

240  PR  I  NT 11 

250  PR  I  NT "  ItRViKPM  I  I" 

300  : P0KE36874, 128 : P0KE36877, 128 : F0RI-15T01STEP-1 : P0KE36878, 1 : FQRJ-1TO20 :  NEXTJ,  I 

310  P0KE36877, 0 : P0KE36874, 0 : P0KE36878, 0 

330  RP<1)*8122:RP<2)*8130:RP<3)*8137 

340  F0RI-1T03  :  P0KERP< I > , 32 : P0KERP< I )+i , 32 

350  P0KERP< I )+2>  32 ! POKERPC I )+23>  32 

360  POKERP <  I )  +44 < 32 : POKERP CD  +46 > 32 

370  POKERP  < I ) -2 1 >  32 : NEXT I 

390  F0RI-1T03 

400  IF(RND( 1 X. 24ANDRNDC 1 )#5<0B< I > )ANDRND< 1 X. 43THEN410 

402  I F I » 1 THENRP  < 1 ) *RP  < I ) + . 5 

403  IFI*3THENRP<3)«RP<3)-.5 

404  RP<I)*RP<I>-22 
410  NEXT I 


40  PRINT :PRINT"fcJ?UNNER:  ODDS-" 

50  PRINT"Ws«i»^^  mmmV 

60  PRINT: PRINT" 1)SE3. 

70  PRINT- PRINT" *> STEVE 
80  PRINT: PRINT" «3) ALLAN 
90  PRINT :PRINT"BET?" 

100  INPUTS 

110  I FB>MOORB<0THEN 1 00 

120  PRINT: PRINT"WHAT'S  THE  NUMBER  OF 
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415  FQRI-1T03:  IFRPCIX7897THEN1000 
450  NEXT 

540  F0RI-1TQ3  * POKERPC I) +30720; 1 : POKERPC I ) ; 252 : POKERP< I >+30721 ; 0 : POKERPC I >+l , 176+ 
I 

550  P0KERP<  I  >+30722;  1 : POKERPC  I  >+2;  254 :  POKERPC  I  >+30743;  0  '•  POKERPC  I  >+23;  160 
560  POKERPC I >+30764; 1 : POKERPC I >+44; 254 : POKERPC I >+30766; 1 : POKERPC I >+46; 252 
570  POKERPC I >+30700; 1 : POKERPC I >-21 ; 81 : NEXT I 

580  : P0KE36878; 4 : P0KE36874; 147  :  P0KE36877; 140 : FQRI-1T065 : NEXT : P0KE36874; 0 : P0KE368 
77;  0 

581  P0KE36878;  0  '•  GOTO340 

1000  FORZ*1TO1000 : NEXTZ : P0KE36879; 8 

1001  J-I 

1010  PRINTER" 

1820  OOSUB1500 
1050  PR I NT "WON. " 

1060  PRINT :PRINT"kVOU  BET  ON" 

1070  I*R 

1080  OOSUB1500 

1090  PRINT"  *80; VOU'VE" 

1100  IFJ«RTHENPRlNT"hUONm  WELL  BONE." 

1110  IFJORTHENPRINT"BL08TM  BAD  LUCK." 

1111  IFJORTHENMQ*»MO-B 

1112  IFJ*RTHENMQ«MQ+CODCR>#B> 

1113  IFMOC1THEN2000 

1114  I FMQ>20000THEN3000 

1120  PRINT: PRINT: PRINT" ^RE88  RETURN" 

1130  INPUTfl* 

1140  00T032 

1500  I F I  ■  1 THENPR I  NT "  ISBEBfiST  I  AN  COE" 

1510  I F I *2THENPR I NT " IBTEVE  OVET" 

1520  I F I  ■3THENPR I  NT "  kflLLflN  WELLS" 

1550  RETURN 
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2000  PRINT"  Bi'OU'VE  RAN  OUT  OF  MONEV" 

2040  PRINT ••PRINT"IBDO  VOU  OR  VOUR  FRIEND  WANT  A  GAME?" 
2050  INPUTA* 

2060  I FA$» " VE8 " THENRUN 
2070  PRINT"iBVE  THEN. " 

2080  END 

3000  PRINT"kVOU'VE  BUST  THE  BANK! I" 

3810  0OTO2040 


Wizard 

Can  you  follow  the  series  of  electronic  blips  given  by  VIC? 

Press  the  keys  in  right  order  after  the  computer  has  given  you  the  tune.  The  tune  gets  longer  as 
you  go  on. 

Be  quick,  otherwise  the  computer  will  give  you  a  raspberry. 


1  REM#COMPUTER  WIZARD# 

2  PRINT"!"  :P0KE36879> 158 

3  CQ*3072tt  LQ*0 

9  PRINT"**  ■" 

10  PRINT  “.I*  Mr  i#  «" 

20  PRINT"!#  m -  -COMPUTER-  - ■#  " 

30  PRINT".!#  *  •-WiZflRD-f  W  :: 

40  print1!#  £  *  " 

45  PRINT"!#  ■  #  " 

50  PRINT"!#  WH - II*  " 

55  PRINT"!#  ■  fl  - 


60  PRINT"!#  * — I  . ■*  — I#  " 

65  PRINT"!#  ■  111  121  131  #" 

70  PRINT"!#  ■  !#•■  I  I  I  I  #•■  I  *  B" 

75  PRINT"!#  B« — I  w«— I  w#- 1  r 

80  PRINT"!#  »-^rsl-HlnlHrs« — ■#  " 
05  PRINT"!#  ■  14  1  151  161  *  ‘ 

90  PRINT"!#  ■  i*l  I  I  DM  I  I  Ml  I  fl  » 

95  PRINT"!#  M - ■  w# — fwg-g  w| — |B)  »•; 


100  PRINT"#  1M - - iST  " 

110  PRINT"!#  'M - " 

120  PRINT"!#  *1 - ■— HHT  " 

130  PRINT"!#  ** - HT 

140  PRINT"!#  *H - asr 

150  PRINT"!# 


170  FORI"8142TO0185  •’  POKEI+CO,  0  =  POKEI  ^  160:  NEXT 
180  FQRJ*1TQ6 ! READfK  J) : NEXTJ 
185  DATA223/227/230 
190  DATA231,234,236 

195  F0RJ*1TQ9:N0<J)*INT<RND<1)#6HI  !NEXT!NU*i 
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200  PQKE36078. 8 ! F0RI*1T0NU 

210  PQKE36875.A<NQ<I» 

211  Z*2 

212  ONNQ<I)Q0SUB1000. 1100. 1200. 1300. 1400. 1500 
215  FQRJ*1TO550*NEXTJ 

220  POKE36075. 0 ! Z*1 ! ONNQ( I )GQSUB1000. 1100. 1200. 1300. 1400. 1500:FORJ«1TO125:NEXTJ. 
I 

225  POKE198.0 
230  F0RI-1TQNU 
235  FORJ-1TQ170 

240  QETflf < 1  > :  IFflf <  I  >0“  "THEN300 
250  NEXTJ 

260  P0KE36875. 128  >  FQRJ*1TO1200 «  NEXT  i  P0KE36875. 0 
270  LQffL04i • IFLQ*5THEN2000 
200  0010195 

300  IFVAL( Af (  1  >  )ONO(  I  )THEN260 
305  PQKE36075.A<VflUflfU>» 

310  NEXT I 

320  FQRI*1TQ560 i NEXT  s  P0KE36875. 0 

350  NU*NU+1 

360  FORI*1TO850 : NEXT 

365  IFNU-10THEN195 

370  OOTO200 

1000  PQKE7883+CQ.  Z  '•  P0KE7883. 81 
1010  RETURN 

1100  POKE7089+CO.  Z  >  PWE7809. 01 
1110  RETURN 

1200  PQKE7894+CQ .  Z  ;  PQKE7894.81 
1210  RETURN 

1300  POKE7971+CO.Z:POKE7971.01 
1310  RETURN 

1400  P0KE79774C0.Z:P0KE7977.01 
1410  RETURN 

1500  PQKE7982+CQ.  Z  '•  P0KE7992. 81 
1510  RETURN 

2000  P0KE36879. 8  •  PRINT"Utfi,0U  MBS  WRONQ.FIVE  TIME8" 

2010  PRINT"!!! - 

2020  PRINT"  EDO  VOU  WANT  ANOTHER  00  WN)?" 

2030  OETfif J IFflf*" "THEN2030 
2040  IFflf*"V"THENRUN 
2050  PRINT"BVE" 

2850  EN3 
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Tail  Gunner 

Enemy  space-craft  close  in  on  you,  growing  larger  as  they  approach.  Move  your  sights  over 
the  top  of  them  and  fire  before  they  escape  past  you. 

W  moves  your  sights  up, 

A  moves  them  left, 

D  moves  them  right, 

X  moves  your  sights  down,  and 
S  fires  your  energy  cannon. 

How  many  can  you  destroy  before  6  get  through  your  defensive  net. 


5  POKE650;25S 

10  PQKE36879*  8  •  pr z nt " rsiasiniilixsBnxDavaiwp 

19  DIMfl<2> ; 8(2) : F0R!«0TO2 :  fi<  I  >«7680+INT<RND(l  >8906) 

20  SCI )»l: NEXT 

25  SO7680 :  CLa38400  •  CO"30720 ! X*10 :  Y«10 

30  S*0 : Pfl*0 

50  FORI«0TO2 

55  GETfi$! IFfl$*""THEN100 

60  P0KESC+Y822+X; 32 » X*X+<flf  «"R"  >-<flf*»"D" > 

65  V*V+(fl$*"W")-<flf»"X") « IFV<0THENV»0 
70  IFY>22THENY*22 
75  IFX<0THENX*0 
80  IFX>21THENX«2i 

85  PQKECL+Y822+X; 1 : P0KESC+V822+X; 91 
100  IFfl<I)«0THEN180 

105  fi«fl<  I ) : POKER; 32  :  POKER- 1 ; 32 : POKEfl+1; 32 : POKER-21 ; 32 : POKER-23; 32 

106  POKER+21 ; 32 : POKEfl+23; 32 

107  IFRNIKi».9THENS<I>«S<I>+i 

1 10  D*INT(RND< 1 >83+21 > : XFRNDC 1 ».5THEND*-D 
115  fl-fl+D:IFfl<7703THENfl-fl+450 
120  I Ffl>8 1 62THENfl"R-450 

125  fl< I >»fl : POKEfl+CO; 4 : POKEfl+CO-i ; 4 : POKEfl+CO+1 ; 4 : POKEfl+CO-21 ; 4 : P0KER+C0-23; 4 

130  POKEfl+CO+23; 4 : P0KER+C0+21 ; 4 

135  ONSCI >GOTQ140; 145; 150; 160; 170 

140  POKER; 46 :QOTO200 

145  POKER; 87 :GOTO200 

150  POKER; 87 : PQKEfl-1 ; 107 : POKEfl+1 ; 1 15 : OOTO200 

160  POKER; 87  v POKER- 1; 107  =  POKEfl+i ; 1 15 : POKER-23; 85 : POKER-21 ; 73 

165  POKER+21 ; 74 : POKEfl+23; 75 : OOTO200 

170  fl < I > *7680+ 1 NT < RND < 1 > 8506 > :Pfl»Pfl+l :8<I>«1 

175  IFPR>5THEN1000 

176  GOTO200 

180  IFRND< 1  )<• 9THEN200 

185  fl<I)ssINT(RND<l>8506>+7680:S<I>*l 

200  I  Ffl$<> "  8 "  THEN300 

201  P0KE36878; 10 « FORR-255TO200STEP-1 : P0KE36877; fl : NEXT : FORR-1TO100 : NEXT  s P0KE36877 
;  130 

202  P0KE36878; 15 

205  fl*CL+V822+X : POKER; 7 : POKEfl-1 ; 7  =  POKER+21 ; 7 : POKER+22; 7 


17 


210  POKEfl-22 , 7 : POKEfl-23 , 7  =  POKEfi-2 1,7: POKEfl+23 , 7 

215  R=SC+Y#22+X : FQRJ=1T05 

220  ONJGOTO225,230,235,240,230 

225  POKEfl, 46 : P0KE36877, 145 : QOTO270 

230  POKEfl, 81 : P0KE36877, 175 : GOTO270 

235  POKER, 87 : P0KE36877, 200 : GQTO270 

240  POKER, 73 : PQKEfl-1 , 85 : POKEfi+21 , 74 : POKEfl+22, 75 

245  P0KE36879, 25 : P0KE36877, 225  =  GOTO270 

250  POKER, 32 : POKER-23, 85 : POKEfl-22, 64 : POKER-21 , 73 : P0KE36877, 250 

255  POKEfl-1, 93 :pOKER+i, 93 

260  POKEfl+21 , 74  =  POKER+22, 64 : POKEfl+23, 75 

265  P0KE36879,42 

270  FORK® 1 T025+ J# 1 0 : NEXTK, J : P0KE36877, 0 

275  P0KE36879, 8 : P0KECL+Y#22+X, 1 : P0KESC+Y#22+X, 91 

280  POKEfl-23, 32 : POKEfl-22, 32 : POKEfl-21 , 32 : POKEfl-1 , 32  :  POKEfl+1 , 32 

285  POKEfl+2 1,32  =  POKEfl+22 , 32 : POKEfl+23 , 32 

290  FORJs0TO2 : 1  FflOfl  <  J )  fiHDfl-  lOfl  <  J  >  flNDfl+2 1  OR  a  >  flNDfl+22CFK  J  >  THEN295 


291  S*S+S<J>#10 

292  POKEFK  J>-1 , 32  =  POKEFK  J>-21 , 32 : P0KEfl< J>-22, 32  =  POKEFK  J) -23,32 

293  POKEfl <  J ) + 1 , 32 : POKEfl  <  J ) +2 1 , 32 : POKEfl <  J ) +22 , 32 : POKEfl <  J  >  +23 , 32 

294  fl(J)®0 

295  NEXT 

300  NEXT I : GOTO50 
1000  POKE650,0 

1005  FOR I s 1 TO 1 000 :  NEXT :  PR  I  NT "  /  RE  DEAD" 

1010  PRINT"MWI»»BCQRE"S 
1015  FOR I ®36874T036878  =  POKEI , 0 : NEXT 
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Astro  Wars 

In  this  arcade  action  type  program,  you  must  stop  the  enemy  space  craft  from  reaching  the 
bottom  of  the  screen.  If  you  manage  to  stop  the  first  wave,  it  is  followed  by  a  second  and  then  a 
third  wave.  How  many  aliens  can  you  take  with  you  before  your  inevitable  defeat? 

Z  moves  you  left, 

C  moves  you  right,  and 
M  fires  your  laser. 


10  PQKE36879,  8 :  PR  I  NT 11 T J  =00=30720 
15  Sa0 : P*8174 ; W=0 : Lal 
20  DIMAC3) 

24  PRINTTflB<i0>; :F0RI=1T04-L: PRINT" **  "J :NEXT 

25  FQRIa0T03 : fl<  Da7702+INTCRNDC 1 >#22> : IFI<3THENSCI)a0 
30  NEXT I 

35  Cla107:C2a81 :C3a115:Na4 

36  W=W+1 : IFW>3THENW-1 

48  IFWa2THENCla95 : C2=98 • 03=105 
45  IFW=3THENC1=32  '•  C2a88 :  C3a32 
50  FORI=0TO28TEP2  =  KaPEEKC 197) : IFKa64THEN100 
55  P0KEP-1 , 32 = P0KEP+1 , 32  s P=P+CK=33)-CK=34) 

60  I FP<8 1 65THENPa8 1 65 

65  I FP>8 1 84THENPa8 1 84 

70  P0KEP-1+CQ, 3  =  POKEP+CQ, 3 =  P0KEP+1+CQ, 3 

75  P0KEP-1 ,112= POKEP, 113: P0KEP+1 ,110 

100  F0RJaIT0I+l : IFfl<J)a0THEN150 

105  POKEflC J>-1 , 32 : POKEflC J) , 32 : POKEflC J>+1 , 32 

110  AC J)=flC J)+INT CRNDC  1  >4*3+21 ) 

115  I Ffl  C  J ) >8 1 63THEN 1 000 

120  POKEflC JJ-1+C0, 5 = POKEflC J)+C0, 1 = POKEflC J)+1+C0, 5 

125  IFWa2THENPQKEflCJ)-l+CQ, 7= POKEflC J)+C0, 2= POKEflC J)+1+C0, 7 

130  I FW=3THENP0KEfi  C  J  > +C0 , 2 

135  POKEflC J>-1 , Cl : POKEflC J) , C2 : POKEflC J)+l , C3 

150  NEXTJ 

155  IFKO36THEN200 

156  P0KE36878, 12  =  FQRX=255TQ200STEP-1 : P0KE36877, X  =  NEXT 

160  FORX=P-22TO7702STEP-22 : P0KEX+C0, 7 : IFPEEKCX)a32THEN190 

161  P0KE36878, 15 : P0KE36877, 130 

165  P0KE36879, 40 : P0KEX-23+C0, 1 : P0KEX-21+C0, 1 ; P0KEX+23+C0, 1 : P0KEX+21+C0, 1 

166  POKE36877,200 

170  POKEX-23, 127 : POKEX-21 , 255 : POKEX, 81 • PQKEX+23, 127 : POKEX+21 , 255 
175  FQRVa0TO3 : IFAC V)=XTHENP0KEX-1, 32  =  P0KEX+1 , 32 : S=S+10#W : ACY>=0 : N=N-1 

180  I  Ffl  C  V  )  OX+ 1  flNDfl  C  V  )  OX- 1  THEN  185 

181  POKEX- 1 , 32 : POKEX-2, 32 : P0KEX+1 , 32  =  POKEX+2, 32  =  flCV)a0 : S=S+5#W : N=N~1 

185  NEXTV : POKEX-23, 32  =  POKEX-21 , 32  =  POKEX+23, 32  =  POKEX+21 , 32 : P0KE36879, 8 

186  P0KE36877 , 230 

190  POKEX, 93 : NEXTX : FORX=P-22TO7702STEP~22 : POKEX, 32 : NEXT 
195  P0KE36877 , 0 

200  NEXT  I :  PRINT,,JW3C0RE,,8  =  IFN>0TNEN50 
205  00T025 

1000  FOR I al TO 1000 : NEXT : L=L+1 : IFL<4THEHW=8 : PR I NT "3" ; =007024 
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Swarm 

Flash  through  the  skies  and  zap  the  alien  space  craft  before  they  get  you.  As  they  collide  with 
you,  your  ship  slows  down  until  it  eventually  stops  and  the  game  ends. 

As  the  aliens  die,  hear  the  whine  of  reinforcements  warping  into  the  battle  zone  to  take  their 
place. 

W  moves  you  space  ship  up, 

A  reverses  it, 

D  makes  it  go  to  the  right,  and 
X  moves  it  down, 

S  will  fire  your  laser  at  the  enemy. 

3  POKE650>255 

10  PR  I  NT  "T : P0KE36879; 8 : F0RI=3164T08185 : POKE I +30720; S  =  POKEI . 104  :  NEXT 
15  X"5: V°10: D*1 =  S=0  =  SC=7680 : CL-38400 : R*1 
20  DIMX<5);VC5>:FORI«0TO5!X<I>-»sNEXT 

50  FQRI«*0TQ5 : OETflf : IFfl$*»" "flNDD*0THENPQKE36877; 0 !GOTO100 

51  P0KE36878; 2 : PQKE36877 > 240 
55  PQKESC+Y#22+X;  32 :  X*X+D/R 

60  D®D+<fl$»*"fi")-<R#""D',> :  IFDMTHEND-1 
65  IFD<-1THEND— 1 
70  Y-Y+<fl*«"W">-<fl$»"X"> 

75  IFX<0THENX«21 
80  IFVC0THENY-0 
85  IFX>21THENX®0 
98  IFY>21THENY»21 

95  PQKECL+Y022+X,  3 :  0107  MFD— ITHENOl 15 

96  I FPEEK  < SC+Y022+X > ■32THEN99 

97  R*»R+1 :  P0KE36876;  250 !  FORL-1TO200  «  NEXT :  P0KE36876/  0 * 

98  PQKECL+Y022+X; 2 : IFR>3THEN1000 

99  P0KESC+Y#22+X,C 

100  I  FflfO "  8  "  THEN200 

101  P0KE36878; 9  : FQRD1-255TQ230STEP-1 : PQKE36877, Dl : NEXT 
105  D1»DMFD1»0THEND1«1 

110  X1"INT<X) 

1 15  X1-X1+D1 » POKECL+Y022+X1 , 7 : P-PEEK<SC+Y#22+X1 > : IFP-32THEN150 
120  FOR J*0TQ5 ! I FY*Y  <  J ) RNDX 1 *X  <  J ) THENX <  J  > *99 ! 8*8+10 
125  NEXTJ 

130  P0KE36878; 15 ; P0KE36877; 130 
145  GOTO 155 

150  PQKESC+Y022+X1 , 64 : IFXl<21flNDXl>0THENl 15 
155  F0RX2* I NT  < X ) +D 1 TQX 1 STEPD 1 > PQKESC+Y022+X2; 32  *  NEXT 
160  POKE36877;0 
200  IFX<  I >"99THEN250 

205  P0KESC+Y< I >#22+X< D;32: IFRND< IK. 4THEN225 
210  Y<D«Y<D+<Y<D>Y>-<Y<D<Y> 

215  x<d*x<d+<x<d>x>-<x<d<x> 

220  00T0246 

225  X< I >«X< I )+INT<RND< 1 >*3-l > : Y< D«Y<I >+INT<RND< 1 >#3-i  > 

230  IFX<D<0THENX<  D-21 
235  IFY<D<0THENY< D-0 


20 


240  IFXC I »21THENX< I )»0 

245  IFV<I»21THENV<I>-21 

246  IFV< I >-YflNDX< I >«INT<X+. 5>THENR-R+1 : P0KECL+Y*22+X, 2  s IFR>3THEN1000 

247  POKECL+V< I >*22+X< I  >  >  4 : POKESC+VC I >*22+X< I  >,88 

250  IFX<  I  >O990RRNB<  1 X.  9THEN255 

251  X<I >INT<RND( 1 >*22) s V< I >«INT<RND< 1 >*21 > 

252  PQKE36878, 15 s FQRl*250TO150STEP-l : PQKE36876, L  =  NEXT : P0KE36876, 0 
255  NEXT I > OOTO50 

1000  POKE650>0 : P0KE36878, 0 : P0KE36877, 0 

1005  FORI-1TO1000 :  NEXT  =  PR  1  NT " Vmm&UmSCORE " 8 


3-D  Maze 

Work  your  way  throughout  the  maze  in  the  quickest  time  possible.  You  must  try  and  reach  cell 
number  25. 

The  corridor  is  depicted  in  3-D  graphics. 

Cursor-right  rotates  you  right,  cursor-left  rotates  you  left. 

'Return'  moves  you  forwards,  if  there  is  a  gap  in  the  wall  in  front  of  you.  Under  a  minute  is  a 
good  time. 


18  P0KE36879,8 

15'  DIMM$<50,4) ;FQRI«1TO50 

20  IFI>1THENM*CI , 4>«M$< 1-1 , 2> : IFI>5THENM*< I , 3>-M*< 1-5, 1 > 

25  M$CI , 1 >»STR*< INT<RND< 1 >*2> >  =  M*<I , 2>*STR$< INT<RND< 1 >*2> > 

38  IFIalTHENMfa,3>="0"  :M$a,4>»,,0" 

40  NEXTI:TI$s"000000!' 

45  P*INT <RND< 1 >*58+1 >  =  IFP=257HEN45 

50  F=VfiL<M*(P, i>> :R*VflL<M*CP,2>> :B=VflL<M$CP,3>> :L*VflL<M*<P,4>> 
60  D=1 

75  IFP=25THEN5000 

80  GOSUB1000 

85  GETfi* : IFfi$»" "THEN85 

90  I  Ffl$<> "  M"  flNDflf  O  "  II"  THEN  1 50 

95  IFfl$B"ll"THEN120 

100  EX*F : F»L : L=B : B=R : R*EX 

105  D-D-l : IFD<1THEND=4 

110  GOSUB1800 : GOTO 150 

120  EX=F :  F*R :  R*B :  B^L ;  i_=EX 

125  B«D+1 :  IFB>4THENIi=i 

133  GG3UB1830 

158  I  Ffi$OCHR$  <  1 3  >  THEN85 

160  IFF=0THEN85 

165  P=P+<  <B=3)-<D=1 >  >*5+<B=4)-<B=2) 

170  I FP>50THENP-P-50 
175  I FP< 1 THENP»P+50 
180  GOTO50 

1000  PR  I  NT "  ; 

1005  PRINT,,maiMliii*»iii  031311811  Odllllll  i" 
1010  PRINT">l*iii#M  MIIHIl  milllll  i" 
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print  11  wii>»»i^BL^ii^8i^ii^ii^H^i^a7irrrns' 

PR  I  NT ::  ; 

I FF-0THENPR I  NT !i  - I&NXUIBBBflBl _ 1" 

IFl=0THEN1050 

PRINT"S»»DWnil  mi  Will  GS8BSI  DABBI  Dili!  i,: 

PRINT"*!!  mm  iAiiii  DABBS  DABBS  DABBS  DABBS  BABBS  i" 
PRINT"WS  ABBS  jABS  " 

IFR-0THEN1070 

PRINT,,MDOBBBBBBBBBBBBBBi»BBBI  DAfli  DABB!  DAIBi  iAiii  iASil  3ABBI 

pr  i  nt!!  i  mm  mm  mm  dabbs  dabbs  dabbs  dabbs  dabbs  k 
print"  mm  mi  i" 

PRINT"3*»WCELL"P :  RETURN 

FOR  I = 1  TO  1 000 :  NEXT :  PR  I  NT  ”  3)MMMtfAB»B»MI€LL  DONE" 

PR  I  NT  "SKIS  VOU  GOT  OUT  ALIVE" 

PR I NT "MT I ME  TAKEN"; 

T=V8LCTI$> : H*2NT  sT/10000) ;M=INT<<T-H*i0000V!i08)  :S=T-H*10000-M*108 
PR I NTH "HOURS" 

PR INTM "MINUTES; AND" : PR I NTS "SECONDS" 


DABBS  DABBS  [ABBS 


m* 


ri»f 


..r 


i  kr> 


rnSSi^m 


oooo 


■au«»*lj 

mum  i  •Jr 

naaaail'^ 
■  ■aaaai'f 

iV"nii| 

laaiiiii 
■■■■Hi  i 
'  naaainf 
uaaaiwl 
■  MWJ  f 


aaaauf 

mw.matrt 

FM/HitiM 

/JfiTJ'J  J'.  " 

mww.lill 

ui’t'tm*' 

--•w.a.i 

■Si* 

■•.mm  mS.wr. 
W&ZZjmaj 

XS&2& 

famm 
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mrvm  ft 
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Brands  Hatch 

Test  your  skill  on  the  road,  trying  to  avoid  thirty  cars.  Be  careful  not  to  crash  into  them  or  into 
the  side  barriers. 

See  if  you  can  finish  the  race  without  damage  to  you  or  your  car. 

You  are  given  a  rating  depending  on  your  performance. 

Race  instructions  are  given  in  the  program. 

1  C=  1 2 :  H=0 :  PR  I  NT  "  !!D0  YOU  WANT" :  PR  I NT "INSTRUCT  IONS"  =  PR  I  NT"  OR  INH0>?" = INPUT 

R$ 1 

2  I Ffl$« " V " THENGOSUB2000 

3  GOSUB2090 : P0KE36879, 92 : POKE650 .128  =  P0KE36878, 15  =  P0KE36874, 128 : G0T07 

4  PRINT"T:F0RI«1T023 

5  PRINT"  MIS  II" 

6  NEXTi: RETURN 

7  G0SUB4 

10  FORL-1TO30 
25  A-7+INT CRNBC 1 )#7> 

70  PRINT''niI!Mni)IDnNnDn9VDnNM^  :  PRINTTRB<R> "SBI V  ■*  " 

80  PRINTTRBCfl) 

90  PRINTTRBCfl)"#  HUH  iW" 

100  PRINTTRBCfl)" 

110  F0RZ-1T08+DI 

111  GETfl# : PRINT" WM"  =  PRINTTRBCO"  " 

120  PRINTTRBCO"  " 

1.30  PRINTTRBCO"  " 

140  PRINTTRBCC+1)"  " 

150  PR  I  NT " 

170  C*C+Cfl#-"Z")-Cfl*-"M"> 

180  I FC<70RC> 1 4THENG0SUB 1 000 
191  PRINT"  WW":  PRINTTRBCO"  " 

1.96  PRINT"M"U  !PRINT"II"H 

200  PRINT"MIW"  :  PRINTTRBCO  "IS  H  ■"  " 

210  PRINTTRBCO"" ■" 

220  PRINTTRBCO "■  HW  BH 11 
230  PRINTTRBCC+1 )  "IM" 

240  GO8UB300 
250  NEXTZ,L 
260  print" )alioaMDa9ai,l 

262  IFH-0THENPRINT"###GRERT  DRIVING!###" : IFDI>2THENPRINT"  FOR  THAT  LEVEL" 

264  I FH- 1 THENPR I NT " ### WELL  DONE#*#" 

265  IFH>1RNDH<5THENPRINT"###N0T  BAD###" 

266  IFH>4RNDH<1 1 THENPR I NT " ###GRRNNV### " 

270  IFH>10THENPRINT"###Hfl,Hfi,Hfi! I###" 

275  PRINT! 

280  POKE650J0 
290  GOTO500 

300  PE-0 : PE-PEEK  C  78 1 2+0  +PEEK  C 7835+C ) +PEEK  C  78 1 4+C ) 

330  I FPE-96THENRETURN 

400  P0KE36879, 136 : P0KE36977, 240 : FORI-251TO180 : P0KE36876, I 
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401  FORI 1*1TO200 : NEXTI 1 > I 

402  PRINT"  WW"  :PRINTTAB<C>"  "  :PRINTTAB<C-1)"W.S'  t" 

403  PR  I  NTTfiB<  C- 1  > "  SB  «0  il" 

407  PR I NTTAB  <  C- 1 )  "  W"  li 

410  P0KE36876, 0 : P0KE36877, 140 : FORI-15TO0STEP-1 : P0KE36878, I s FORI 1-1TO100 : NEXTI 1 , I 
430  POKE36877,0 s POKE36870, 15  =  P0KE36974, 128 : P0KE36S79, 92 : 008UB4 : H*H+1 : RETURN 
500  P0KE36874, 0 : FORI-1TO000 : NEXTI : PRINT" WWW"  : PRINT"»»IWWiW!WFINISHW 
510  F0RI-1T08 
520  READA< I > 

530  NEXTI 

550  DATA223,227,230 
560  DRTR231 > 234,236 
570  DATA238,239 

580  FORI ■0TO88TEP2 > P0KE36875, A< I > OO8UB700 : NEXTI 
590  F0RI-1T088TEP2 : P0KE36873, fl< I > : OO8UB700 : NEXTI 

600  F0RI-8T018TEP-1 : P0KE36875, A<I ) : OO8UB700 : NEXTI : PR I NT "IB" : P0KE36878, 0 : P0KE3687 
5,0 

620  POKE650, 0  s P0KE36874, 0 : P0KE36879, 27 : END 
700  FORI 1-1TO350: NEXT: RETURN 

1000  P0KE36877, 213 i P0KE36873, 208 : FORJ-1TO750 : NEXTJ : P0KE36875, 0 : P0KE36877, 0 : H*H+1 
1010  IFC<7THENC-7 
1020  IF014THEN014 
1030  00SUB4: RETURN 

2000  PRINT"WOU  MUST  OVERTAKE  30  CARS, THE  LOWER  THE  SKILL  LEVEL  THE  FR8TERV0 
U  GO  . " 

2015  PRINT" - " 

2035  INPUT  "PRESS  RETURN"  i  AS  s  PRINT"!!" 

2040  PRINT" - ":PRINT"Z~MOVES  VOUR  CAR  LEFT > M-MOVES  IT  RIGHT. 

II 

2045  PRINT" - - - " 

2050  PRINT"THE  FIGURE  AT  THE  TOP  LEFT  IS  THE  NUMBER  OF  CARS  VOU'VE  PASSED, » 

2060  PR I NT "THE  ONE  TO  THE  RIGHT  IS  THE  NUMBER  OF  CRASHES. " 

2070  PRINT"VOU  CRASH  IF  VOUR  FRONT  "; 

2075  PR!NT"WHEEL  HITS  A  CAR" 

2080  PR I NT "OR  VOU  HIT  THE  SIDE  OF  THE  ROAD. "  =  INPUT" PRE8S  RETURN"; A*: PR I NT" IT  : RET 
URN 

2090  PRINT"DIFICULTV?  < 1-HARD  TO  9-EASV) 

2100  INPUTDI  :  PRINT 11 13" 

2110  IFDK1ORDI>9THEN2100 
2120  RETURN 


Lightning  Bolt 

A  bolt  of  energy  descends  from  the  heavens.  You  must  make  a  wall  with  your  cursor  and  try 
and  make  the  bolt  go  through  it.  If  it  hits  your  wall  you  gain  points. 

Be  careful,  if  you  cross  your  path  or  that  of  the  bolt,  you  lose  one  of  your  5  lives.  Also,  the  bolt 
may  fire  a  laser  at  you,  knocking  a  hole  through  your  wall  and  perhaps  hitting  you,  losing  one  of 
your  lives. 

W  moves  your  cursor  up, 

A  moves  it  left, 

D  moves  it  right  and  X  moves  it  down 


5  HI«0 

10  s*0  •  CO*30720  :  SP*3 : LI»5 :  F*0 
15  P0KE36879*  8 : P®7910 

20  PRINT"T : F0RI-8164T08185  =  POKEI+CO, 5 : PQKEI > 160 : NEXT 
25  L*7680+INT<RNDC1>*22> 

30  D»INT(RNDU)«3-1) !  IFD»0QRRND<1)>.  5THEND=D+22 
35  C«93:iFD?21THEN078 
40  IFD*23THENC*77 
45  IFD<20THENC«64 
50  PQKEL+C0>  3 : POKEL; C 

55  L*L+D! IFL>8163THENS*S-10 : OOTO20 

56  IFL<7680THENL*L+22 

57  1 FPEEK  <  L  >  *  1 60THENS*8+50  •'  GOTO30 

60  POKEL+CO*  7 : FOKEL*  81 

61  F0RI-1T0SP 

65  K-PEEKC197)  s  1FKO17RNOKO18BNBKO9RNOKO26THEN100 

70  P0KEP+CQ,4:P0KEP, i60:P*P+<K*17)-<K*18>+<<K*9)-<K*26>>*22 

71  8*8+1 

75  IFP>8164THENP*P-22:S*S-1 
80  IFP<7680THENP*P+22 : 8*8+1 

85  I FPEEK < P ) “32THEN90 

86  LI*LI-1 : POKEP+CO/ 7 » PQKEP, 42 

87  P0KE36876/ 240 : P0KE36878, 10 : FQRL1-1TQ100 s NEXT : P0KE36876; 0 
86  GOTO 180 

90  POKEP+CO; 2 ! PQKEP* 91 
100  NEXT 

105  I F8> 1000THEN8P*2 
110  I FS>5000THEN8P* 1 

115  IFRNDC IK. 95THEN200 

1 16  P0KE36878; 12  s FORE“255TO2108TEP-1 : P0KE36877, E  s NEXT 
120  B»L : E*INT<RND< 1 >*3-1 >  s IFP<BTHENE»E-22 

125  IFP>BTHENE*E+22 

130  IFRBS(EK20THENE-22 

135  B*B+E : B1*B « Cl*93 : IFABS<E>*23THENC1*77 

140  IFABS(E>*21THENC1*78 

145  IFRB8<E>*1THENC1*64 

160  IFB>8163THEN180 

161  I FB<7680THEN 1 60 

162  POKEB+CO*  7  >  POKEB* 81 
165  IFBOPTHEN170 
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166  LI*LI-1 : P0KE36876/ 175 : P0KE36878, 15 : FORL1-1TO100 : NEXT : P0KE36876, 0 : GOTO180 
178  PQKEB+CO*  5 : POKES; Cl 
175  B*B+E: GOTO 160 

180  B*B-E : FORI-B1TQBSTEPE  =  POKEL  32 • NEXT  :  P0KE36877, 0 

200  IFS<-10THEN1000 

205  IFS>1000RNDF*0THENLI*LI+1 :F*1 

210  I FS>5000flNDF* 1 THENL I *L I + 1 -F*2 

215  IFS>10000flNBF*2THENLI*LI+l :F*3 

220  IFLK1THEN1000 

225  IFRNDC 1 »■ 7THEN30 

230  GOTO50 

1000  FOR  1*1  TO2000 :  NEXT : PR I NT "  SMWOTiilMSCORE "  S 
1005  IFS>HITHENHI*S :  PRINT  '<  PRINT"lfi'OU  GOT  THE  HIGH  SCORE"  =  GOTO  1020 
1010  PRINT: PRINT: PRINT" WIGH  SC0RE"HI 
1020  PRINT :  PRINT"l!HNOTHER  GAME?" 

1025  GETA6 : I Ffl$* " V " THEN 1 0 
1030  I  FflfO "  N "  THEN  1 025 
1035  PRINT: PRINT" «BVE" 

1050  POKE 198*0 


Space  Birds 

Mysterious  eggs  are  dropping  from  the  sky.  Large  birds  hatch  out  as  they  hit  the  ground.  What 
are  these  strange  creatures? 

There  is  a  valuable  mineral  in  the  clouds  of  this  planet  which  your  company  is  attempting  to 
obtain .  Unfortunately,  the  birds  of  this  planet  thrive  on  the  stuff  and  it  is  your  job  to  prevent  them 
eating  it  all  by  wiping  them  out. 

As  the  birds  reach  the  clouds,  they  eat  some  of  the  mineral  and  lay  another  egg.  Thus  you  must 
shoot  the  birds  before  they  reach  the  clouds. 

Z  moves  your  gun  left, 

C  moves  it  right,  and 

M  fires.  Be  careful.  If  you  fire  and  miss  you  may  burn  away  some  of  the  mineral.  You  get  half 
points  if  you  shoot  an  egg  down .  Although  sometimes  they  just  hatch  out.  The  game  ends  if  you 
crash,  if  most  of  the  cloud  is  eaten  or  if  you  kill  off  all  the  birds. 


5  INPUT'TEKILL  LEVEL ";LE:LE*LE-1 

6  I FLE<0ORLE>5THEN5 

10  P0KE36879* 8 : PR  I  NT  "T : CO*30720 : G*8143 
15  DIMB<5) / D<5) : CL*22 : SC*0 

18  FOR I *7680TO770 1 : PQKEI+CQ, 3 : PQKEI * 90 : NEXT 

19  FQRI4fi*0TOLE 

20  FORI  *0TQWfl :  B  <  I )  *7702+ 1 NT  <  RND  <  l )  *22 )  :DU>*21+INT<RNDa>»3> 
25  NEXT I 

35  F0RI=8164T08185 : PQKEI+CQ* 5 : POKE I / 160 : NEXT 
40  POKEG-1 * 1 12 : POKEG* 113  =  POKEG+1 *  1 10 

44  Nfl*Wfl+l 

45  F0RJ*1T02 
50  FORI*0TOWfi 
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55  IFB(I>*0THEN150 

60  POKEBC  I  > .  32  '•  IFD< I »0THEN70 

65  POKEB< I > — 1 1 32 : POKEBC I >+l , 32 : POKEBC I >~22. 32 : POKEBC I) -43. 32 : POKEBC I >-45.32 

66  POKEBC I >-23. 32 : POKEBC I >-21 . 32 : POKEBC I >-44. 32 

67  IFD< I»0fiNDPEEKCBC I > >032THENIK I  >=INTCRNDC  1  >*3-23> 

70  BCI>SBCI>+IKI> : IFBCI»8163THENDCI>*INTCRNIKl>i|i3~23>  :BCI>*BCI>+IKI> 

71  I FIX  I >  >0ORB  C I  >  >*7746THEN76 

72  I FPEEK  C  B  C I  > -44  >  »32THEN74 

73  POKEB  C I  >  -44 . 32  '•  CL*CL- 1 

74  DC I >*INT <RNB< 1 )#3+2l > : BC I >®INT CRNDC 1 >#22+7702> 

75  IFDCIX0THEN100 

76  IFIKIX0THEN100 

85  POKECO+B< I > . 7 : POKEB< I > . 81 
90  GOTO 150 

100  POKEBC I >+CO. 7 : POKEBC I >-l+CO. 7  =  POKEBC I >+l+CO. 7 : POKEB< I >-22+00. 6 

105  POKEBCI >-23+C0. 5 : POKEBC I >-21+C0. 5  =  POKEB< I >-44+C0.2 

106  POKEBCI >-43+00. 5 : POKEB< I >-45+00. 5 

110  POKEBCI >.113: POKEB < I >-l . 85  =  POKEB < I >+l . 73 : POKEBCI >-22. 102 

115  POKEBCI >-44. 88 

120  0NJG0T0125. 135 

125  POKEBC I >-23'.  105 : POKEBC I >-21 . 95 

130  GOTO 150 

135  POKEBC I >-45. 95 : POKEBC I >-43. 105 

150  IFCL<5THEN1000 

160  K»PEEKC 197> : IFK<33ORK>34THEN200 

165  POKEG-1 . 32 : POKEG. 32 • POKEG+1 . 32 : G*G+CK*33>-CK-34) 

170  I  FPEEK  C  0- 1  >  O320RPEEK  C  G  >  O320RPEEK  C  G+ 1  > 032THEN 1 0 1 0 

171  I FG<8 1 43THENGa8 1 43 

172  I FG>8 1 6 1 THENG®8 161 

175  POKEG-1 +00. 1 : POKEG+CO. 1 : POKEG+l+CO. 1 
180  POKEG-1 .112: POKEG. 1 13 : POKEG+1 . 110 

200  IFKO36THEN250 

201  PQKE36878. 15  =  FORL1*255TO230STEP-1 : P0KE36877. LI : NEXT 
204  X«G-22 

285  POKEX+CO. 7 

210  I FPEEK  C X >  O32THENGOSUB300 : G0T0228 

211  P0KEX.93 

215  X*X-22 : IFX>7679THEN205 

216  X*X+22 

220  F0RV*G-22T0XSTEP-22  '•  POKEV.  32 :  NEXT 

225  P0KE36877. 0 

250  NEXT I . J : IFNfl>0THEN45 

255  NEXTWfl 

260  I4I»1:0OTO1015 

300  I FPEEK C X ) «90THENCL«CL- 1 : POKEX.  87 : GOSUB450 : RETURN 

305  POKEX+CO. 4 : POKEX+CO. 4 : P0KEX+C0+21 . 4 : P0KEX+C0+23. 4 

310  P0KEX+C0-23. 4 ; P0KEX+C0-21 . 4 

315  POKEX. 209 : POKEX+21 . 255 : POKEX+23. 127 

320  POKEX-23. 127 : POKEX-21 . 255 

330  FQRYa0TOWR:  IFBCY)OXORDCYX0THEN340 

335  IFRNDC 1 ».7THENBCY>*0 : NR*Nfl-l : SC«8C+25 : GOSUB400 : GOTO340 

336  DCY>*INTCRNDC 1 >#3-23) : GO8UB450 : G0T0345 
340  I FB  C  V  >  OXORB  C  Y  >  >0THEN345 
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341  SC-SC+50 : B<Y)*0 : Nfi*NR-l : COSUB400 

342  POKEX-1 ,  32 : POKEX+1 >  32  =  POKEX-22, 32 : PQKEX-23, 32 : POKEX-21 , 32 

343  POKEX-44, 32  s POKEX-43, 32 1 POKEX-45, 32 
345  NEXTY 

350  POKEX+21 , 32 : PQKEX+23, 32 i PQKEX-23, 32 : POKEX-21 , 32 
355  RETURN 

400  P0KE36878;  15 '•  P0KE36876>  200  :  FORL1-250TO150STEP5 
405  PQKE36877, LI : FORL2-150TO190  =  P0KE36876,  L2  =  NEXTL2,  LI 
410  PQKE36876; 0 : P0KE36877, 0 
415  RETURN 

450  P0KE36878; 10: P0KE36875, 145 : FORLH220TO253 

455  P0KE36877, LI : P0KE36875, 455-Ll =  NEXT 

460  P0KE36875*  0  '•  P0KE36877 »  0 

465  RETURN 

1000  141-2 

1005  GOTO1015 

1010  141*3 

1015  FQRI*1TO1000 : NEXT 
1020  PRINT"3SCORE"SC 

1025  I FW I * 1 THENPR I NT " YOU  STOPPED  THE  BIRDS" 

1030  I FW I -2THENPR I NT " THE  BIRDS  RTE  THE  CLOUDS" 

1035  I FW I *3THENPR I NT " YOU  COLLIDED  WITH  SOMEDEBRIS" 

1040  END 


Arkenstone 

Taking  the  part  of  the  intrepid  hero,  you  must  wrest  the  arkenstone  from  the  clutches  of  the 
evil  dragon. 

As  just  about  everyone  knows,  the  arkenstone  is  a  mythical  gem  prized  highly  by  the  Dwarves 
who  lost  it  when  the  dragon  sacked  their  mountain  long  ago. 

It  may  require  some  clever  thinking  to  work  out  how  to  manipulate  some  of  the  objects  you 
come  across. 

Your  commands  are  entered  as  sentences,  pressing  'return'  after  each  word  and  ending  the 
final  word  with  a  fullstop.  e.g. 

Pick(  return) 

Up(  return) 

axe.  (return) 

Commands  can  be  up  to  9  words  long. 

Pick/up/the/large/axe./  (/  =  'return') 

is  just  as  valid  as  the  example  above. 

Directions  can  be  entered  as  full  words  or  as  the  first  letter  of  the  compass  point,  e.g. 
go/north./  orgo/n ./ 

At  each  point  in  the  game,  the  computer  describes  your  surroundings  and  you  are  required  to 
give  your  course  of  action. 
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Commands  available  are: 

go  or  move,  kick,  listen, 

catch,  pick,  drop, 

skewer,  swing,  throw, 

fill,  inventory,  and 

recover  —  This  must  be  used  when  getting  the  arkenstone,  'Pick  up'  will  not  work. 
Happy  adventuring! 


1  rift*#  arkenstone  9# 

2  Print"*"  >chr$a4> 

5  diml*<7),t*<7),e$<7),df<7>,o)i<3> 

10  f or i®0to7 : readlf ( 1 >  , 1$< 1 ) , e*< i >  , dt < i > 

15  next:dinof<5),vf<5),lJ«5> 

20  fori ®0to5 ! readot<  1 > , v$<i > , V/.i  1 ) •  next 
25  si®  1 :  dr*6  '•  ln®2 :  ea®0 :  bu»0 

94  9osubl000 

95  ifdr®-lthen!04 

96  i f sl®0andrhdC  1  »•  8thendr*ln 

97  ifrndUX.9thent00 

98  ifsl®lthenPrint"The  dra9on  awakes! " :sl®0 

99  Print"The  dradon  hides  the  trkenstone. " «  lX<5)®int<rnda>#7>  :dr*tx<5> 

100  1 f rnd < 1 >>. Bands l ®0and l n®drthenP r i nt " The  dra9on  has  killed  sou!" istOP 

104  in®l :Prlnt"Vour  course  of  action" : inPutif < in) 

105  in«in+liifin>9thenPrint"Too  verbose" :9otol00 

1 10  ifrl9ht»< it< in- 1 ) , 1 ><>" . "theninPuti*< in) s 9Otol05 

111  Print"*" 

115  in®in-l 

116  i*<in)®left*<i*Un),len<i»<in))-l> 

117  if i*< in)®" inventory "then9o$ubl 100 : 9otol00 
120  ifift  1  )®"P  ick " then9osubl200  '•  9oto95 

125  if  i$< 1 >«"droP "then9osubl308 : 90to95 
130  if 19C 1 )® "k ick "then9osubl400 s 9oto95 

135  ifi$<l)®"Move"orif<l)®"9o"then9osubl580!9oto94 

136  if if (1 >*" throw" then9osub2300 : 9oto95 
140  fori®0tO5 

145  if < l?i< i )®lnoroX< i )®1 )andi$< 1 >*v$< i >then9osubl600 : 9oto95 

150  next: Print" I  don't  understand  sou. " : 9otol04 

155  data "Mount  Qundabad", "sheer  wall  to  the  west'Se, 1 

160  data"North  MirkwoodV'lot  of  trees", sw, 20, "South  Mirk wood's  "lot  of  trees'S en 
,31 

165  data"Lake  Town'S  "River  Runnin9",we,24, "Wilder land", "River  Runnln9",wes,365 

170  data"the  Mists  Mountains", esrie,n, 4, "the  Lonels  Mountain", "dark  hall",wn,47 

175  data"the  Lonels  Mountain", "Pile  of  treasure",s,6 

180  datacade, catch, 0, sPear, skewer, 1 , bucket, f 1 l l , 2 

185  dataea9le, listen, 5 

190  dataaxe, swin9, 6, arkenstone, recover , 7 

1000  Print"Vou  are  in  " :printl*(ln) :Print"Vou  can  see  " 

1805  ifln<3orln>4thenPrint''a  "J 
1010  Printt9<ln)!fori»0to5 
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1015  ifl8<i)*lnando8<i)*0thenPrint"and  a  :Printol<i> 

1020  nex t : i f dr* l n t henP  r i n t : P  r i n t " The  dra9on  Is  her*" 

1025  i f dr*  1  nands l » 1 thenP r i nt " Bu t  he's  sltePin9" 

1030  return 

1100  PrinfHi'ou  have:" 

1105  fori*0to5! ifoH<i)*lthenPrint"a  "Jo*<i> 

1110  next:  Print  "and  are  in  "  :printl«ln) 

1115  return 
1200  fori*0to5 

1 205  i f l X ( i ) * l nand i *  < i n  > *o$ <  i ) andoJi <  1 ) »0thenoK < 1  ) « 1 < return 
1210  next:Print"There  isn't  a  if < in) return 

1300  ifi$<in)*"ca9e"then*a*0 

1301  for  i*0to5 :  ifo5i<i>»landit<in)*o$<i)thenoXCO»o:  I5i<i)»ln:  return 

1305  next;Print"Vou  haven't  9ot  a  if < in) : return 

1400  ifi$<in)<>" dra9on " thenP r i nt " K i ck  what?" return 

1401  ifdrOlnthenPrinf'He  isn't  here.  ":return 

1405  sl*0:print"Vou  have  awoke  the  dr a9on« return 

1500  ifsl*0andln*drandrnd<l)>.5thenPrint"The  dra9on  won't  let  you. " : return 
1505  d**mid$<i$<in).l.l):bo»0:ifbo*lthenU3)*ln 
1510  fori*ltolen<e$an)> 

1515  i fd9*mid$<e$< In). i. 1 )thenln*val<mid$<dl:< In). i. 1)> : return 

1520  next:Print"Vou  can't  move  there" return 

1600  forJ*ltoin:ifof(i)*i9<J)thenl620 

1605  next: Print"Do  what  with  it?" Return 

1620  oni+19otol625. 1700. 1800. 2000. 2100. 2200 

1625  fori»ltoin : if  if  < 1 >*"ea9le"thenl635 

1630  next: Print "Catch  what?" : return 

1635  ea*i:Print”The  ea9le  is  now  in  the  ca9e": return 

1700  fori*ltoin : if i*< i )»"dra9on"thenl710 

1705  next- Print "Skewer  what?": return 

1710  ifdr<>lnthenPr.int"The  dra9on  isn't  here":return 

1715  i f rnd <1 ) > . 8thenP r i nt " The  dra9on  is  an9ry.  he  advances. " :sl*0: return 

1720  Print "Well  done. you've  killed  the  dr a9on! ■: dr*- 1 : return 

1800  ifln<3orln>4thenPrint"There's  no-where  to  fill  it. return 

1 805  P  r i nt " OK " : bu* 1 =  re turn 

2000  ifea*0thenPrint"VOu  can't  here  him.": return 
2015  print "The  ea9le  says:" 

2020  Print "What  is  best  axe  or  sPear?Why  not  Quench  the  worm's  thirst" 
2025  Print "There  is  someth in9  sPecail  in  Mirk wood" 

2030  return 

2100  fori*ltoin: if iS<i)*"dra9on"then2120 

2110  ifif< i)*" trees" thenP r in t "That  was  clever-some  trees  fell  down. ": return 
2115  next : Print" eh? ": return 

2120  PrinfThe  draSon  is  an9ry .headvances. " :sl=0: return 

2280  Prinf'Well  done. you've  completed  your  mission" = stop 

2308  fori*ltoin : if i$< i)*"bucket "then2310 

2305  next :»rint"Vou  can't  throw  that. " ; return 

2310  fori*ltoin  '■  if  iS<  i  )*»"dra9on"then2320 

2315  next : P  r i n t " Not  at  that . " ; return 

2320  i f dr O l ntheno r i nt " He  isn't  here » " : ret urn 

2325  Print "That  has  an9ered  the  draSon.he  advances" :sl*0: return 
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Gomoku 

A  VIC  version  of  the  ancient  oriental  game. 

Levels  3  and  4  for  a  hard  game,  the  others  are  for  if  you  want  to  win. 
Moves  are  entered  as  x  coordinate,  comma,  y  coordinate,  e.g.  2,3 
Attempt  to  get  5  stones  in  a  row  before  your  opponent. 

WARNING  —  This  program  takes  a  few  minutes  to  make  its  move. 


I  QO8UB1000 

5  GGSUB200 

6  GGSUB100:GOTO67 
10  HI"0:W*0 

II  GC-GC+1 

15  V-l 

16  X«1 

17  IFWO0THEN300 

20  IFBX<Y,X)Q0QRF*1THEN65 

21  SF«~S 

22  HL»5; IFGC<5THENHL*GC 

25  TH*0 : FQRL*HLTQLESTEP-i : FQRP—1TQ1STEP2 
30  IFTHO0THENS5 

35  FORD*0TO7 !  IFXX<B)titL+X<lORXX(D)iM.+X>10THEN50 

40  IFVX<D)0L+Y<1QRVX<D>#L+V>10THEN50 

41  IFTHO0THEN50 
45  GO8UB2000 

50  NEXTD 
55  NEXTP.L 

60  IFRBS(TH»RB8<H1  5THENHI-TH :  HY-Y : HX»X 

61  IFRB8(TH)«HITHENHI"TH  s  HY*Y :  HX"X 

65  X«X+liIFX<llTHEN20 

66  Y-Y+l s IFY<11THEN16 

67  IFHI-0THENGQ8UB100 

71  BX<HY/HX)f-liP«-l 

72  GO8UB5000 

75  INPUTHX,HY:P«1 

76  I FHX< 1 QRHX> 1 0GRH Y< 1 ORH Y> 1 0THEN75 

77  IFBJiCHY*  HXX>0THEN75 

79  GO8UB5000 

80  BX<HYiHX)*l  !PRINT"0K" 

85  GOTO10 

100  O0 

105  HY«INT (RNBC 1 )*10+1 ) : HX*INT <RND< 1)610+1 > 

110  C»C+1 

I I I  IFO400THENW®! :  GOTO500 
1 15  IFBJKHV,  HX)O0THEN105 
120  RETURN 

200  PRINTS  12345678910" :  FORI-1TO10 :  PRINTI ; 

205  IFK10THENPRINT"  "j 
210  PRINT"IH4++++H++" 

215  NEXT I : RETURN 

580  IFW*-*ITHENGO8UB5000 :  PRINT "  I  MIN" 
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505  I FW- 1 THENPR I NT " VOU  WIN" 

510  END 

1000  PRINT"!!  OO-MOKU" 

1005  VK(0>~1 :  XX<0)»0 :  VX<1  >— 1 :  XJ4<1  )»1 :  m2 >*0  s XX<2>«1 

1010  VH<3)-1 : XH<3>1 : VX<4)-1  :  XX<4)»0 : VX<5>-1 :  XX<5)»- 1 

1015  VX<6>«0!XX<6>—l!VX<7>—i:XX(7)»-l 

1020  PRINT"ENTER  LEVEL < 1-4) " : INPUTLE : IFLE<1ORLE>4THEN1020 

1025  LE-5-LE : OC-0 

1030  PRINT"3" : RETURN 

2000  NP*0:DI®1 

2005  IFBX<Y+VH<D)#DI , X+XX<D)#DI)-PTHENNP»NP+1 

2010  I FNP<D I THEN2025 

2015  DI-DI+1 :  IFDK-LTHEN2005 

2020  IFNPOLTHEN2025 

2021  TH*NPRP: IFP»lfiND<D-4-DF  OR  DF-4-D ) THENTH-TH+2 

2022  I FNP-4RNDP— 1  THENW-P 

2023  I FNP-SRNDP- 1 THENW-P 
2025  IFNP>0RNDP*  1  THENDF-D 
2030  RETURN 

5000  CO-81 : CL-0 = IFP-1THENCL-6 : CO-87 
5005  POKE38400+HV#22+HX+2/ CL : PQKE7680+HYR22+HX+2, CO 
5010  PRINT Xllllllllllll  .'ll" 
5015  RETURN 


Lunar  Lander 

Choose  one  of  the  three  landing  sights  and  guide  your  fragile  lunar  module  down  to  a  safe 
landing.  Points  gained  for  landing  depend  on  which  site  you  land  on.  You  get  half  points  for  a 
hard  landing,  none  for  a  crash. 

Z  thrusts  you  left, 

C  thrusts  to  the  right, 

M  thrusts  upwards. 

Your  motion  continues  until  countered  by  gravity  or  thrust  in  the  opposite  direction. 

As  you  approach  your  landing  site  you  will  get  a  close-up  scan. 

Landing  pads  are  depicted  as  green  lines  in  the  long-range  scan. 

Can  you  land  at  the  rightmost  site  for  1 50  points? 


10  SC-7680: CO-38400 =  S*0 


15  P0KE36879, 8 : DV-0  =  DX». 1=V»0: X=0 


20  PRINT"I3WRRRRRRI 

24  PRiNT"nar  Tfc 

25  PR I NT "Hfil  I 

30  PRINTHS  m 

35  PRINT".TH  ■ 
40  PRINT "HR  9 

45  PRINTER  ■ 


IRRRRRRRRRRRI  mi  111181  Ml  XIII 
IUX  —ST  " 

R  fla  R 

r  9i  tr 

IR  Ifl 

R  BMXR 

IH  I 


ii 
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II 


50  PRINTTHI  ■  fl 

55  PRINT".™  ■  fl 

60  PRINT"™  B  18 

65  PRINT".™  B  10 

70  PRINT".™  B  9T 
75  PRINT'*™  ■  M 

80  PRINT'*™  HkMfl 

85  PRINT'*™ 

90  PRINT"™ 

95  FORI-8163TO0I85  •  POKE I +30720;  2  s  POKE I; 160  '•  NEXT 
99  PRINT"#" 


100  POKESC+INT <V)022+Xj  32 
105  V-V+DV : X*X+DX s IFX>21THENX«0 
110  IFX<0THENX"21 

|1R  TftVffllTUPklWttfl 

1 16  I FPEEK  C  8C+ 1  NT  <  V )  #22+X ) 032THEN 1 000 

117  I F V>  1 0flNDX<  1 0THEN200 

1 18  IFV>5RNDX>10. 5flNDX<«16THEN400 
120  P0KECG+INKY)#22+X;3 

125  P0KE8C+INT (V)022+Xj  88 
130  DV°DV+. 02 ! K»PEEK< 197) 

135  DY"DV+(K"36>/8+< (K»33)*(K"34) )/20 
140  DX*DX+<<K»34>~<K»33>V10 
145  OOTO100 


V1*V • X1*X J  V«0 ! X-<X-5)*4+INTCRND< 1 )#6) : PO-100 


200 

205  PRINT"™ 
210  PRINT"?! 
215  PRINT'*™ 
220  PRINT'*™ 
225  PRINT"™ 
230  PRINT".™ 
235  PRINT'*™ 
240  PRINT".™ 
245  PRINT'*™ 
250  PRINT'*™ 
255  PRINT'*™ 
260  PRINT'*™ 
265  PRINT’*™ 
270  PRINT'*™ 
275  PRINT'*™ 
280  PRINT".™ 
285  PRINT".™ 
290  PRINT".™ 
295  PRINT'*™ 
300  PRINT'*™ 
PRINT"™ 
PRINT"™ 


305 

310 

315 

320 


r 


a 

a 

a 

a 

a 


a 


a 

a 

a 

w 

T 


■10 


IN 


F0RI-8163T08185 s POKE I +30720; 2 : POKEI ; 160 : NEXT : PRINT"#" 
P*SC+INT(V)*22+X : POKEP*  32 « POKEP+22; 32 : POKEP+23; 32 « P0KEP+21 < 32 


325  X"X+DX!Y»V+DY 

326  IF<V<0flNDDV<-. 5 )ORX<  1  ORX>20THENV-V  1-1 : X»X1  **OOTO20 

327  IFV<0THENV»0 
329  P«8C+INTCV)022+X 
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938  IFPEEK<P+2i ) • 1 04ORPEEK < P+22 > ■ 1 04ORPEEK <  P+23  > ■ 1 04THEN800 

335  I FPEEK < P > O320RPEEK <  P+2 1 > O320RPEEK < P+22 > O320RPEEK < P+23 > 032THEN 1 000 

340  P-P-8Q : PQKEP+CO, 3 : P0KEP+21+C0, 3  : PQKEP+22+CQ, 3 : PQKEP+23+CQ, 3 


345  P-P+SC i POKEP.01 : POKEP+21, 05 > POKEP+22, 249 : POKEP+23, 73 
350  DY»BY+. 02 ! K*PEEK< 197) 

355  DY»BY+<K«36  V8+<  <K-33)+<K«34>  )/20 
360  DX»DX+«K«34)-<K»33>)/i0 
365  0OTO320 

V-0 : X*<X-8)#2+INT  <RND< 1 >07-3) * PO-50 

IIB)  •mmMtr  MRLTI  I  >110  00110  11 


400  Y1*Y!X1*X 
405  PR  I  NT 11 730000000 
410  PRINT"«r 
415  PRINT": 

420  PRINT'TM 
425  PRINT'TIR 
430  PRINT'TM 
435  PRINT'TM 
440  PRINT"* 

445  PRINT"* 


B 

■ 

B 

E 


.0 

0 

10 

0 

0 

0 

10 

10 


450  PRINT'TM 
455  PRINT'TM 
460  PRINT'TM 
465  PRINT'TJ0 
470  PRINT'TIR 
475  PRINT'TIR 
480  PRINT"* 
485  PRINT'TIR 
490  PRINT'TIR 
495  PRINT'TIR 


■  10 


■  B 
B  * 

B  0 


B  * 

B  01  " 

b  a  " 

B  0FB 

B  110  mmrniW  B  " 


500  FOR I *8 1 63T08 1 85 : POKE I +30720 / 2 • POKE L 1 60 : NEXT : PR I NT " 0" : P0KE8 1 74 < 101 =P0KE8175/ 
229 

505  OOTO320 


800  I  FPEEK  <  P+2 1 ) 0 1 04QRPEEKC P+22  >  0 1 04ORPEEK  <P+23>O104THEN1000 

803  I FY>7RNDPO*50THENPO* 150 

804  I FRBS  < DX  » . 50RRBS <  DV  » . 6THEN 1 000 

805  IFRBS<DX».20RflBS<DY>.  15>THEN850 


807  S*S+PQ 

810  FOR I * l TO2000 :  NEXT :  PR  I  NT "  BONE" 

815  QOTO9O0 

855  S-8+P0/2 

900  PRINT"T»B9M5C0RE"S 
905  OOTO1010 

1008  POKECQ+ 1 NT < V ) #22+X > 7 : P0KESC+INT<Y)*22+X, 42 : P0KE36879, 24 
1010  FORI*1TO2000 ! NEXT 
1015  ENB 
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Earth  Defense 

As  commander  of  Earth's  defense  systems,  you  must  stop  the  invading  missiles  from 
reaching  the  ground. 

Move  your  sights  around  the  screen  and  launch  your  missiles  to  intercept  the  enemy  missiles  at 
just  the  right  moment.  Be  careful,  you  only  have  a  limited  supply  of  projectiles. 

The  game  will  end  if  you  halt  the  invasion  or  if  6  missiles  hit  the  ground. 

W  moves  your  sights  up, 

A  left, 

D  right, 

X  down,  and 
S  fires  a  missile. 

Earth  is  depending  on  you. 


i  PCKE36879.'? 

3  PPTWT"n«*JK*EflRTH  DEFENSE###”: PRINT: PRINT" CNTER  SKILL  LEVEL-  (2-7)" 

6  INPUTSK:  IFSKC20RSIO7THEN5 

10  PRINT"3"  !SH*0:FORI*S142TO8163iPQKEL 160:POKEI+30720;5:NEXT 
15  P*-l : 00*30720 : X»10 s V»1 1 : CI*0 : SO0 
20  F0RW»1T0SK ! N0*-1 : P“-l : SH"0 : MI“15+INT (SK/2) 

22  FORI»0TQ5 :  PX<  I  >*0  =  XX(I  )*10 :  mi  >*19 :  NEXT  I 

25  F0RI»8164T08185 :  POKEI+CO;  5  '■  POKEI  >  160  *  NEXTI  s  P0KE3S849;  3 1 PQKE38850; 3 : P0KE38851  ; 
3 

26  POKES 129; 112SPOKE8130; 113:P0KE8131; 110 

30  FORI*0TOW : MX< I >*7680+INT(RND< 1 )#22) : SX< I >»MX< I > : DX< I >*INT<RND< 1 >*3+21 > 

35  NEXTI 

50  IFSK>4THEN53 

51  FORI®0TO8K • 00T054 

53  FORI-0TOI4 

54  IFMXC I >*0QRI>WTHEN100 

55  OR*0 : C*93 

56  IFDX<  1  >*21THENO70 

57  IFDX< I >»23THENC»77 

58  POKEMXC 1 )+C0; 7 : PQKElUiC I ) ;  C 

59  MX< I  >«MX(  I  )+DX(  I )  i  IFMX<  IX8186THEN65 

60  0O8UB2000 : MX< I >*7680+INT(RND<  1  >*22> : SX< I >«MX( I > : DX(I )-INT<RND<  1  )*3+21 ) : OOTO10 
0 

65  IFPEEK(MX<  I  >  >O32THENOO8UB1000  s  I  FOR*  1  THEN  100 
70  POKEMXC I >+C0; 2 : P0KENX( I > ; 42 

100  K*PEEK(197> : IFK»64QRKft41THEN150 

101  I FSH* 1 AND C K« 1 70RK* 1 SQRK*9QRKa26 ) THENSH*0 » 00T01 10 
105  PQKE7680+V022+X; 32 

110  X*X+(K*17)**(K»i8> 

115  V*V+(K*9>-<K*26> 

120  IFX<0THENX*0 
125  IFX>21THENX*21 
130  IFV<1THENV»1 
135  IFY>19THENV-19 

140  POKE38400+ V*22+X ; 3 : PQKE7680+V022+X; 91 
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130  IFP®-1THEN205 

155  FORJ-0TO5!  IFPX<J)*0THEN200 

160  POKE7680+YXC J)*22+XX< J) / 32 

165  YX< J)«VK< J)+<YX< J»TYX< J)  >-<YX< JXTYX< J>  > 

170  XX<  J)-XX<  J>+<XX<  J»TXX<  J) >-<XX< JXTXX< J)  > 

175  IFXX< J)«TXX< J)flNDYX< J)-TYX< J)THENGQ6UB3000  '•  OOTO200 
180  POKE38400+ YX <  J ) *22+XX <  J  >  / 7 » POKE7680+YX< J)*22+XX< J) / 46 
200  NEXTJ 

205  IFKO41THEN220 

210  I FP®5ORP®-2THEN220 

211  IFPX<P+1)®1THENP-P+1!Q0T0217 

215  P*P+1 : PX<P>»1 : TXX<P)«X : TYX(P)-Y  s 8H-1 s PQKE38400+X+Y#22/ 2 

216  PQKE36878/  5 : P0KE36877 / 250 

217  IFP>5THENP"0 
228  IFCI>5THEN4000 

222  IFCD5THEN4000 

223  IFP®-2THEN225 

224  P0KE38849/ 3 1 POKE38850/ 3 : P0KE38851 /  3 « P0KE8129/ 1 12 : POKES 130/ 1 13 * P0KE8131 / 1 10 

225  NEXT! s IFNO<WTHEN50 
230  NEXTW 

240  PRINT" WELL  DONE/ YOU  STOPPED  THE  INVR8I0N" 

245  PRINT"YQli  SCORED" 8C*8K 

250  PRINT"fiND  LET"CX  "MISSILES'  THROUGH" 

260  PRINT"YOU  WERE  ON  LEVEL 11 SK 

999  P0KE36678/  0  '•  P0KE36877 /  0  -  END 

1000  E*MX< I > : I FE<81 20THENRETURN 

1001  P0KE36878/ 15 : P0KE36877/ 130 

1004  QR®1 : P0KE36879/ 42 

1005  P0KEC0+E-21  / 7 « POKECO+E-23/ 7 : POKECO+E/ 7 •' P0KEC0+E-22/7 
1010  P0KEC0+E-44/ 7  =  POKECQ+E-43/ 7  :  POKECQ+E-45/ 7 

1015  POKEE/ 93 : POKEE-23/ 77 : POKEE-21 / 78 • POKEE-22/ 93 s POKEE-44, 64 
1020  POKEE-43/ 73 : POKEE-45/ 83 
1025  P0KE36877/ 200 

1030  IFE-8129  OR  E-8130  OR  E-8131THENP—2 

1031  M®I J GOSUB2000 : MX<M>»0 : NO-NO+1 

1835  POKECO+E/  2  s  POKEE/ 104  s  POKEE-23/  32  '•  POKEE-22/  32  s  POKEE-21  /  32 

1 040  POKEE-43/ 32 : POKEE-44 / 32 : POKEE-45/  32 

1045  P0KE36878/ 0 : POKE36077/ 0 » CI-CI+1 : P0KE36879/ 8 » RETURN 

2000  FORN«SX<M)TOMX<M>STEPDX<M>  i POKEN/ 32 » NEXTN 

2005  MX<M)«7680+INT<RND<1>*22) :SX<M)»MX<M> :DX<M)bINT<RND<1>*3+21> 

2010  RETURN 

3000  EX"XX< J) i EY®YX< J) s E-7680+EX+EY022 : P0KE36878/ 6 s P0KE36877/ 220 

3005  PQKEE+CQ/  2  '•  POKEE+CO+l  / 1 :  P0KEE+C0-22/ 1 :  P0KEE+C0-21  / 1 

3010  PQKEE+CO-23/ 1 : POKEE+CO-1  / 1 : P0KEE+C0+21  / 1  '•  P0KEE+C0+22/ 1 : P0KEE+C0+23/ 1 

3015  F0RL-1T04 : ONLQOTO3020/ 3030/ 3040/ 3050 

3020  POKEE/ 01 :QOTO3080 

3030  POKEE/ 87 :OOTO3080 

3040  POKEE+CO/ 1  '•  POKEE/ 74 '•  POKEE+1 75 » POKEE-21  /  73 : POKEE-22/ 85 
3045  GOTO3080 

3050  POKEE- 1 / 93  =  POKEE+1 / 93 s POKEE+21 / 74 : POKEE+22/ 64 : POKEE+23/ 75 

3060  POKEE-23/ 85  :  POKEE-22/ 64 : POKEE-21 / 73 

3070  POKEE/ 32 

3080  FORM® 1 TO50 ' NEXTM / l 
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3085  POKEE- 1,32: POKEE+ 1,32: POKEE+2 1,32: POKEE+22 , 32 : POKEE+23 , 32 
3090  POKEE-23, 32 : POKEE-22, 32 : POKEE-21 , 32 

3095  MI-MI-1  :Xf{(J>-10:VX<J>*19:PJi<J)-0:  IFP-5THENP-0 

3096  IFMI-0THENP— 2 
3100  FORL-0TOW 

3105  I FP18  <  L  >  OEANDMX  <  L  >  OE+ 1  ANDMJi  <  L )  OE-22ANDMX  <  L )  OE-2 1 THEN3 115 
31 10  SC«SC+10#U : M«L : GOSUB2000 : MX<L>«0 : N0-N0+1 
3115  NEXTl : P0KE36878, 0 : P0KE36877, 8 : RETURN 
4000  FRINTWOU  HAVE  BEEN  DESTROYED" 

4005  PR I NT "YOU  SURVIVED  UNTIL  ATTACK  WAVE"W"," 

4010  G0T0245 
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Nightmare  Castle 

Wander  around  the  graphically  depicted  locations  in  this  realtime  adventure.  Watch  out  for 
the  monster  in  your  search  for  the  treasure. 

There  are  doors  which  open  and  close,  and  one  which  requires  the  key  to  open  it.  In  one  of  the 
rooms,  there  is  an  hidden  passage-way  through  the  wall  which  can  only  be  found  by  trying  to  go 
through  the  wall.  You  may  come  across  the  invisible  maze  and  even  THE  ROOM. 

THE  ROOM  is  a  strange  place.  All  sorts  of  weird  things  happen,  but  you'll  have  to  find  out  what 
yourself.  CLUE:  if  the  treasure  was  in  the  room,  it  won't  be  when  you  enter. 

The  cursor  controls  at  the  bottom  right  of  the  keyboard  move  you  around  the  screen.  Going 
through  a  door  means  you  enter  another  room. 

Objects  are  dropped  by  pressing  the  space  bar.  Pressing  the  divide  key  (/)  will  thrust  your 
sword  to  the  left,  if  you  have  one. 

You  will  leave  a  trail  in  the  invisible  maze,  if  you  reach  it  alive.  The  game  ends  when  you  bring 
the  treasure  safely  to  the  room  where  you  began  (or  if  you  are  eaten),  NOT  AN  EASY  TASK! 
THE  OBJECTS  ARE  SHOWN  AS  FOLLOWS: 

YOU 

THE  MONSTER 
THE  SWORD 
THE  TREASURE 
THE  KEY 
TREES 

GOOD  LUCK! 


5  POKE650/255 

10  SP«0 : GP*0 =  R»1 :  SR“INT <RNB< 1  >#4+1 ) : GR*4 : MR»GR+INT <RND<  1  )#3-l ) :  Xl**10 : Yl*10 *•  KP*0 
15  CO*30720 : X*10 : Y*10  =  S*7703 : G*8145 
20  KR*9 : K*7756 : MP*32 
25  IFRND<i».5THENGR-10 

50  0NRG0SUB1 100/ 1200/ 1300/ 1400/ 1500  • 1600/ 1700/ 1800/ 1900/2000 

100  P*7£90+X+Y#22 

101  POKEP/32:GET0$ 

102  IFR*5THENP0KEP/ 224 

105  DX*<R$»"II"  ) :  DY*s<fl$*"T  >  •  D=DX+DY*22 

106  PE«PEEK<P+D>  =  IFPE*320RPE«224THEN1 15 

110  IFKP*lflNDPE»102THENl 15 

1 1 1  I FPE*3 1 THENSP* 1 =  G0T01 15 

1 12  IFPE»28THENGP*1 « G0T01 15 

1 13  I FPE* 1 27THENKP* 1 : GOTO! 15 

114  DXa0 : BV=0 

115  M=X+DX  '•  Y*Y+DY 

120  IFR*3flNDX*13RNDY»l 1THENR*4 : G0T0126 

121  IFX>0ANDX<21 AND Y>0RNDY<22THEN 145 

125  R*R+<X«0>-CX*21 )+<  <Y-22)-<Y*0) )#5 

126  IFX*0THENX«20 

127  IFX»21THENXsl 

128  IFY*0THENY*21 
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129  IFY*22THENY*1 

130  IFR®3RNDX®20THENX® 12 :  V®  1 1 
135  IFR®4RNDX*13THENX®1 :  Y»!  1 
140  GOTO50 

! 45  P*7680+X+Y#22 • PDKEP+CO , 2 : POKEP , 81 

150  I  FSP®  1 ORSRORTHEN 1 60 

155  P0KES+C0,7:P0KES,31 

160  I FGP®  1 ORGRORTHEN 1 70 

165  POKEG+CO  , 5 ; POKEG  , 28 

170  I FKP®  1ORKRORTHEN180 

175  P0KEK+CQ,7:P0KEK,127 

180  I FGP® 1 RNBR* 1 THENEND 

185  IFMRORRNDRN1K 1  ».  9RNDMR>~  1  THENMR*MR+  < MR>R ) - < MR<R )  =  MP=32  =  Xl«l : Vl*10 

190  I FMRORORRND  <  1 X .  5THEN250 

191  M*7680+X1+Y1#22 

195  P0KEM,MP: IFGR®RORGP*1THEN220 
200  1FSP-0THEN220 

205  IFRND<  1 ».  99THENMR*  I  NT  <  RND  <  1  >#9+1  >  =  MP®32  :  Xl®20 : Yl*10  =  GOTO250 
210  DX®<X1<X)-<X1>X> :  DY*<Y1<Y)-<Y1>Y)  '•  D®DX+DY#22 
215  GOTO230 

220  DX»<X1>X)-<XKX>  :DV»<V1>V)-(V1<V>  :D»DX+DV#22 
230  I FPEEK <  M+D ) *320RPEEK  <  M+D ) ®8 1 THEN240 
235  IFGP®0THENDX®0  '•  DY*0  '•  D®0 

240  X1®X1+DX : Y1®Y1+DY : M®M+D 

241  IFX1<1THENX1®1 :V1®V1+1 

242  IFX1>20THENX1*20 

243  IFV1<1THENY1*1 

244  I FY 1 >2 l THENY 1=21 

245  MP*PEEK  <  7680+X 1 + Y 1 #22  > :  M*7680+X 1 +Y  t  #22 

246  P0KEM+C0,4:P0KEM,94 

250  I  FMR«RRNDX®X  1  RNDY«Y  1  THENEND 

251  IFfl$<>"  "THEN260 

252  IFSP® 1THENSP®0 : SR«R : S*7703 
255  IFGP® 1THENGP®0 ; GR«R : G®8145 
257  IFKP®  1THENKP*0  '•  KR«R :  K®7756 
260  I Ffl$<> " / " ORSP®0THEN 1 00 

.  265  S*7680+X+Y#22-l =  P0KE3+C0, 7  =  POKES, 31 
270  I FX- 1  i*X  1  AND Y= V 1 THENMR®- 1 
275  FORI®1TO100: NEXT 'POKES, 32 
280  GOTO 100 
1000  P0KE646,CL 

1005  PR  I  NT "  US" ;  FOR  I  *  1 T022 :  PR  I  NT "  Ml";:  NEXT 
1010  FOR  I  ®8 1 63T08 1 85  =  POKEI+CO,  CL  '•  POKEI ,  160  =  NEXT 
1015  PRINT"MS  Ml"; 

1020  FORI»1TO20 ; PRINT" 9  Ml";: NEXT 
1025  RETURN 

1 100  P0KE36879, 9 : CL«1 : GOSUB1000 
1 105  P0KE7689, 32  =  POKE7690, 32  =  P0KE7691 , 32 
1 120  P0KE7921 , 32 : P0KE7943, 32 : P0KE7965, 32 
1125  RETURN 

1200  P0KE36879, 109 : CL=5 : GOSUB1000 

1205  POKE7900, 32 : P0KE7922, 32 : P0KE7944, 32 : POKE7690, 32 : P0KE7691 , 32 : P0KE7692, 32 
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1210  FORMTO20 

1215  CL= I NT  <  RNB< 1 )  #460 >  +7702 : 1 FPEEK  <  CL  X>32THEN  1 2 1 5 
1220  POKECL+CO.  5 :  P0KECL  *  88 :  NEXT  I 
1225  RETURN 

1 300  P0KE36879 . 27 : CL*3 : GOSUB 1 000 
1305  POKE7690. 32  =  P0KE7691 , 32 :  P0KE7692, 32 

1310  print" nsaHHDsoBipiBBBBBBBna r%  nimmiiv  uibiribhre . 

1315  print"  a  xisbbbbbi  raaaaaaaai  miaaiaaii" ; 

1320  PRiNT»gms  jsiibsibi!  jabbbbbbi  hbhhbbibbi"  ; 

1325  PRINT"  a  BIBBRBRBflSI  SBBBRRSflSBr-' 

1330  RETURN 

1 400  P0KE36879 ,172: CL*2 : GOSUB 1 000 
1 405  P0KE7900 , 32 : P0KE7922 . 32  :  P0KE7944 . 32 
1410  P0KE792 1.224  =  P0KE7943 .224  =  P0KE7965 . 224 
1415  RETURN 

1500  P0KE36879. 136 : CL»2 : GOSUB 1000 

1505  F0RI-1TO100 

1506  CL*7680+INT<RNIKD#506>  :  IFPEEK<CL)O32THEN1506 

1507  :P0KECL.96:NEXT 

1510  POKE7900. 32 :  P0KE7922, 32 :  P0KE7944,  32 :  P0KE7925. 32 
1515  POKE7690. 32  :  P0KE7691 , 32 : P0KE7692. 32 : P0KE7713, 32 
1520  PQKE7735. 32  =  P0KE7714, 32 :  P0KE7715..  32 
1525  RETURN 

1600  P0KE36879. 216  :  CL*7 : GOSUB1000 

1605  FORCL*1TO200 :  POKE7680+INT<RND<  1  >*5065  ..160:  NEXT 

1610  POKES 174. 32 : P0KE8175. 32 : P0KE8176, 32  : 

1615  P0KE7921 . 32  =  P0KE7943. 32  =  P0KE7965, 32 
1 620  P0KE7942 . 32  =  POKES 153.32 
1625  RETURN 

1700  P0KE36879. 62 : CL=0 : GOSUB 1000 

1 705  POKE7900 . 32  =  P0KE7922 . 32 : P0KE7944 . 32 : P0KE792 1,32: P0KE7943 , 32  =  P0KE7965 , 32 

1 706  I FRNB < 1 >  >, 5THENP0KE8 174.32  =  POKES 1 75 , 32  =  POKES 1 76 , 32 

1710  PR  I  NT  "  J 

1715  PRINT,,MSIbbbbS  a  mmmmmmmmmm" 

1730  RETURN 

1 800  P0KE36879 . 56 : CL=2 : GOSUB 1 000 

1805  POKE7900 . 32 : P0KE7922 . 32 : P0KE7944 , 32 

1806  IFRNIK 1 ». 2THENP0KE7921 . 32 : P0KE7943. 32  =  P0KE7965, 32 
1810  POKES 1 74 , 32  =  POKES 1 75 , 32  =  POKES 1 76 . 32 

1S30  RETURN 

1 900  P0KE36879 , 1 4 : CL=5  =  GOSUB 1030 

1 905  POKE7900 • 32  =  P0KE7922 , 32  =  P0KE7944 , 32 

1910  PR  I  NT  "  r-\  HBBI I  •  iWIBBI w  " 

1920  RETURN 

2000  P0KE36879, 184 : CL=4 : GOSUB1000 

2005  POKE7900 , 32 : P0KE7922 , 32 : P0KE7944 , 32 

2020  MR=R ; XI =19 : Vl*20 

2025  SPs0 : SR= I NT  < RNB (1 >  #3+6  > : S=?703 

2030  KP=0  =  K«7756  =  KR= I NT ( RNIK 1 ) #3+ 1 > 

2031  GP=0:GR=4= G=8 145 
2035  RETURN 
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Checkers 

Challenge  the  computer  to  the  well  known  game  of  checkers. 
Enter  your  move  as  x  coordinate  followed  by  y  coordinate,  e.g. 
FROM 
?  AF 
TO 
?  BE 

Try  not  to  let  the  VIC  win. 


1  GQSUB9000 
50  MO=0 
60  GOSUB7000 
1000  PRXNT,s3KnD^^ 

1005  PRINT"THIS  MOVE" : MO=0: INPUTFHI 
1010  PRINT"^rO" : INPUTTHf 
1050  PRINT'TlSTfiND  BV" 

1068  X*»LEFT*<FH$/ 1 > ■ V$-RIGHT$<FH$,  1 > : FX-RSC<X*> s FV»ASC<V$> 

1065  X*»LEFT$<TH*, 1 ) : V**RIGHT$<TH$, 1 ) : TX*ASC<X$> : TV-flSC(V$> 

1070  FX-FX-64  =  FV-FV-64  =  TX-TX-64 : TV-TV-64 
1420  MO-0 

1430  AXaV,TX)*AX<FV,FX) :RJ«FV,FX>»B 

1450  I FflBS < TV-FV » 1 THENMO-1 « AX<FV+<  <TV-FV)/2>  ,  FX+«TX-FXV2>  >=B :  T-T+l 
1470  OO8UB7000 
2000  V-8 
2006  X*8 

2020  IF  AX<VjX)OC  AND  RX<V,X)QKTHEN2100 
2030  IFRX<V<X)*C  AND  V*0TH£NRX<V.X)-K 

2040  FQRD-0TO3 

2041  Q— 1 

2045  IFX+2#X<DX1  OR  X+2*X<D»8THEN2090 

2046  IFV+2*V<I»<1  OR  V+2#V<D»8THEN2090 

2050  IF<fiJi<V+V<B>;X+X<D)>*H  OR  RX<V+V<D) t X+X(D> )*W) ANDRX <  V+2# V  <  D  X+2*X ( D >  > -BTHE 
NQ-D 

2070  IFRK<V,XX>K  ANDD>1THEN2100 
2060  I FQ>- 1 RNDQC4THEN2 1 25 
2090  NEXTD 

2100  I FAX ( V  <  X ) -HANDV* 1 THENRX  <  V  *  X ) -W 

2110  X-X-l : IFX>0THEN2020 

2115  V-V-l : IFV>0THEN2006 

2120  IFQ—  1THEN2350 

2125  PX*X+2#X(Q):PV*V+2#VCQ) 

2138  S-S+l 

2135  RXCV+VCQ) t X+XCQ) )*B 
2140  flX<PV*PX)«flX(V,)X> 

2145  RX(V*X)*B 
2150  GOSUB7000 
2155  M—l 
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2160  FQRD-0TQ3 

2165  IFPX+2*X<DX1  OR  PX+2*X<D»8THEN2200 

2166  IFPY+2#Y<DX1  OR  PY+2#Y<D»8THEN2200 

2170  IFAH<PY+Y<D) » PX+X(D)  X>HAND  AX<PY+Y<D),PX+X<D)X>WTHEN2180 

2175  IFAXCPY+Y<D>#2,  PXt2*X(D>  >«*BTHENM«D 

2180  IFAX(PY>PX)QK  AND  D>1THEN2210 

2190  IFM>-1THEN2210 

2200  NEXTD 

2210  IFM— 1THEN50 

2220  A?4<PY+Y<M>  >  PX+XCM) )«B 

2222  AJ«PY+2illY<M>,PX+2#X<M»-AX<PY,PX> 

2224  AX<PY>PX)»B 
2226  Sa8+1 
2230  GOTO50 
2350  Y»0 

2360  PY*INT (RND< 1 >#0+1 ) : PX*INT CRNDC 1 >#8+l ) 

2370  Y-Y+i 

2371  Q— 1 

2375  IFY>400THEN2440 

2380  IFAHCPY,  PXXXJANDAXCPY.  PXX>KTHEN2360 
2390  FQRD*0TQ3 

2395  Q»-i 

2396  I FP Y+ Y  <  D  X 1 ORPY+Y <  D ) >8THEN2425 

2397  I FPX+X < D X 1  ORPX+X <  D  > >8THEN2425 
2400  IFAX<PY< PX ) aCANDD> 1 THEN2425 
2410  IFAX(PY+Y<D> < PX+XCD) >-BTHENQ-D 
2420  IFQ>-1ANDQ<4THEN2460 

2425  NEXTD 

2430  IFY<401THEN2360 
2440  F$a"L" 

2458  OOTO7000 

2460  AX<PYtY<Q>  i  PX+X<Q)  )aflX<PY<  PX> 

2470  AH<PY,PX>»B 
2490  OOTO50 

7000  PRINT")M  RBCDEFGH" 

7085  FGRYalTQ8 : PQKECQ+Y*22, 1 :  PQKESC+Y#22, Y 
7010  FQRX® 1 T08 : CL*0 : 1 FAX ( Y  *  X )  ■  1 60THENCL"6 
7015  IFAXCY>X)*C  OR  AX<Y,X)-KTHENCL*5 
7020  IFRX(Y;X)*H  OR  AX(Y,X>»WTHENCL*l 
7025  POKECO+Y022+X. CL : P0KESC+YI22+X, AX(Y.X) 

7030  NEXTX; Y 

7035  PR  I  NT  ”  HHDOMRBainOII^^  11 8 "  II  "=  PR  I  NT"  HUMAN  "T 

7040  PRINT" 

7045  PRINT" 

7050  PRINT" 

7210  IFF**"L"THENPRINT:PRINT"«I  CONCEDE  THE  GAME": STOP 
7230  IFS*12THENPRINT:PRINT"nCTTTmi  WIN": STOP 
7240  IFT*12THENPRINT:PRINT"limiTTTi'0U  WIN": STOP 

7260  U*»" " :  I FMQ*  1 THENPR I  NT "  IflRDSIKDQinWUDlDaCRN  YOU  JUMP  AGAIN  « ;  INPUTU 

♦ 
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7265  MO*0 

7310  IFLEFTtCUf* l)*"Y,,THENFH$sCHR$<TX+64>+CHR*<TY+64) : GOTO 1010 
7320  RETURN 
7900  STOP 
9000  DIMAH<8,8> 

9005  V<0>*1 =XC0>«-1 :V<1>»1 iX<l>-l 
9010  V<2>— 1  » X<2)®-1  =  V<3)*-1  •  X<3>*1 
9050  H*209 : C*215 : W*139 : K®151 

9060  B**160 :  Q*»-l !  Ff*" "  '•  S®0 :  T*0 

9061  COS38400 :  SO7680 

9065  F0RV-1T08: IF2*INT<V^2)«VTHENF0RX«1T07STEP2 : 00T09875 
9070  FQRX-2T08STEP2 
9075  flX<V^>sl60 

9080  I F I  NT  <  X/2 )  #2**XTHENflX  <  Y / X- 1 )  *32 
9085  IFINTWfcXfcOXTHENflJKY, X+l >-32 
9090  NEXTX,Y 
9115  F0RV»1T03 

9120  I F2# I NT  <  Y/2 ) »VTHENFORX* 1 T07STEP2  =  OOTO9130 

9125  FQRX-2TQ8STEP2 

9130  AB<Y,X)«C 

9135  NEXTX^Y 

9140  F0RY-6T08 

9145  I F2# I NT  <  Y/2 ) bYTHENFORX® 1 T07STEP2  =  G0T09155 
9150  F0RX«2T08STEP2 
9155  flX<Y*X)“H 
9160  NEXTX^Y 
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9165  FH$«" " :  JHf"11 11 

9380  P0KE36879. 8 iPRINT'TIiDRflUGHTS": PRINT: PRINT” ®0  VOU  WANT  FIRST  MOVE" 
9318  INPUTV$:PRINT"T  : IFLEFT*(Y*, 1>*"Y"THENRETURN 
9340  GOSUB7000 

9350  A"INTCRNIK  1 >*3+1 >*2 : Q*INT<RND< 1 )*2> 

9370  RH<3+Y<Q) ,  R+X<Q)  >«C  ’•  RX<3, fi>*160 
9398  RETURN 


Dambuster 

Destroy  the  enemy's  dam  and  help  win  the  war. 

You  are  given  a  3-D,  Panoramic  view  of  the  dam  and  the  surrounding  countryside.  You  must 
line  up  your  plane  as  it  approaches  the  dam  and  drop  your  bouncing  bomb  at  the  right  moment. 
Z  moves  your  plane  left, 

C  moves  it  right,  and 
M  drops  a  bomb. 

You  begin  with  five  planes,  but  beware  of  the  enemy  flak. 


5  PQKE650, 129 

10  PR I NT "3" : P0KE36879, 88 : 00=30720 

15  FOR W688T07921 « PQKEI ,  168  •  POKE I +00,  3 :  NEXT 

20  PRINT" 81  Mllllllll  MIIIIIUI 

21  PRINT"MIMIIMI 

25  PRINT".Tk  "3b-  HWillUl  matT~  .lir  fll  I" 

26  PRINT"*.  -su’iuisiHMr 
30  PR  I  NT " 

35  FQRY*7954T08 1 85STEP22 : J*INT< (Y-7910V22) 

40  FQRX*Y-JT0Y+J+1 = IFX>8185THEN45 

41  PQKEX, 160 : POKEX+CQ,  6 

45  NEXTX : IFY-J<812iTHENP0KEY-J, 233 

46  IFY+J+1<*8185THENP0KEY+J+1 , 223 

47  NEXTY 

49  FQRPL=1TQ5 

59  Wl-160  •  W2*W1 :  W3»W1  •  W4*W1 :  N*W1 :  B1«W1  •  B2=W1 :  Ri=Wl :  R2®W1 :  R3*W1 
55  X°8102+INT <RND< 1 >*12> : B*0 : D*1 
68  PGKE36878, 4  =  PQKE36877, 129 : DE=0 
61  FL*INT  CRNDC 1 >*253)+7955 

65  P*PEEK<FL> :P1«PEEK<FL+1> :P2"PEEK<FL+22> :P3«PEEK<FL+23> 

70  I  FP«320RP  1  “320RP2B32QRP3ai32THEN  1 00 

71  POKE36879/40 

72  PGKE36878, 10 : PQKE36877, 200 

75  PQKEFL+CQ, 7  =  PQKEFL+CO+1 , 7 : PQKEFl+00+22, 7 : P0KEFL+C0+23,  7 
80  PQKEFl, 213 : PQKEFL+1, 201 : PQKEFL+22, 202 : POKEFL+23, 203 

85  I FP® 1 20QRP 1 * 1 20ORP2*  1 20ORP3" 1 20THENSE*  1 

86  P0KE36878,  4 : PQKE36877, 250 
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90  PQKEFL+CO, 6 : PQKEFL+CQ+1 , 6  :  POKEFL+CQ+22, 6  =  PQKEFL+CQ+23, 6 

91 

95  POKEFUP  s POKEFL+1 , PI : POKEFL+22, P2 :  PQKEFL+23, P3 

96  IFDE-0THEN99 

97  P0KE36878, 15  •  FQRI-200TQ128STEP-1 :  P0KE36876, 1  ’•  FQRJ-1TO10 :  NEXTJ,  I 

98  PQKE36877,  ISO 

99  P0KE36879,  88  '•  PGKE36877, 129 

100  POKEX;  N  •'  PQKEX+22,  B1 :  PQKEX+44,  B2 :  PQKEX+20, W1 :  POKEX+21,  M2  ’•  PQKEX+23,  143 :  POKEX+24 
,144 

105  POKEX+65, R1 : PQKEX+66, R2 • PQKEX+67, R3 

106  GETfl$ 

110  X-X-22+<fl$a"Z" > 

111  I FX<-7702THEN 1 000 

112  IFBE-1THEN100O 

115  N-PEEKCX)  =  Bl-PEEKCX+22)  '•  B2-PEEK<X+44) : Wl-PEEKCX+20)  *  W2-PEEK<X+21 ) 

120  W3-PEEKCX+23)  :  144-PEEK  <X+24>  :  Rl-PEEK<X+65) :  R2-PEEKCX+66) :  R3-PEEKCX+67) 

125  PQKEX, 226  =  PQKEX+22, 87  =  PQKEX+44, 32 : PQKEX+20, 120  =  POKEX+21 ,120: POKEX+23, 120 
130  PQKEX+24, 120 : PQKEX+65, 235 : PQKEX+66, 209  s PQKEX+67, 243 
140  FORI-1TQ50:NEXT 

145  I  FB«0RNDR$* "  M "  RNDX>-7822THENB"X+66 :  D-22 

150  IFB-0THEN60 

151  J«1 

155  POKEB, 160;B-B+D 
160  I FB<-7932THEN2000 
165  I  FB>8 1 85THEND— 22 
170  1 FB>8058THEHC® 209 

175  I FB<»8058THENC* 174 

176  1 FPEEK <  B )  0 1 60THEN20O0 
180  POKEB, C 

185  IFB-X>1 10RNDD-22THEND— 22  '•  GOTO200 
190  I  FB-X088THENB-22 
195  QOTO250 

200  POKEB- 1 , 205 ! POKEB+1 , 206 

201  POKE36877,240 

205  FORI-1TO100 : NEXT  s POKEB- 1 , 160 : PQKEB+1 , 160 

210  T-0:GOTO60 

250  J-J+i : IFJ<-2THEN155 

255  GOTO 100 

1000  P0KE36877 , 0 : P0KE36878, 0  =  P0KE36876, 0 : IFB>0THENPOKEB, 160 

1005  FORI-1TO1000 : NEXT : NEXTPL 

1010  POKE650, 8 : PQKE36878, 0  =  P0KE36877, 0 s P0KE36876, 0 

1020  FORI-1TO1000 :  NEXT :  PRINTnJ®WWDIWIMIMkHflRD  LINES" 

1025  END 

2000  I FPEEK  <  B ) - 1 60RNDB>7866THEN2050 
2010  P*PEEK<B) : POKEB, 42 : FORI-1TO100 : NEXT 
2815  POKEB, P 

2020  FORI-1TO100 • NEXT  =  B-0  =  T-0 : GOTO100 

2050  I FD— 22flNDB-X>88THEN20 1 0 

2051  I FD-22RNDB“X<-66THEN20 1 0 

2052  PQKEB+CQ, 2 : PQKEB+l+CO, 2 : POKEB, 127 : POKEB+1 , 255 

2053  P0KE36878, 15:P0KE36877, 150 

2055  FOR  I- 1 TQ200  '•  NEXT  I 

2056  PQKE36878, 10 : P0KE36877, 200 
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2060  PR  I  NT "  WWKWMSSk 

■  " 

2065  PRINT" lillillli 8  k  I  JMIIIIIII  k  ■ 

2070  GOTO1010 


Smash 

Try  and  break  through  the  double  wall  with  your  angled  bat. 

You  begin  with  5  balls  and  must  gain  points  by  knocking  holes  in  the  wall.  There  are  more 
points  to  be  gained  on  the  bricks  higher  up. 

The  speed  of  the  ball  increases  as  your  score  gets  higher,  so  beware. 

Z  moves  your  bat  left, 

M  moves  it  right. 

1  HI=0 ! P0KE36878. 12 

2  PRINT"!*##  SMASH  ##*": PRINT :PRINT"PRESS  A  KEV  TO  START" 

3  GETA$ : IFA$»" "THEN3 

5  PQKE36879, 8 : X*RND<-TI > =  S»0 : LI-5 : BS-3 

18  PRINT"3II  SCORE  BALL  HI  B - 1"; 

15  FQRI*1TQ19: PRINT"!  I"; : NEXT 

20  PQKE38862.  6  :  P0KE38883. 6  : PQKE8142. 101 : PQKE8163. 103 
25  PRINT"Wm^^  HT  nUTrTTTTT  TUT  TT  IT  I'  1 1 1 ""  i 

30  PRiNT"ii»rrn r it r n  rrrr n t 1 1 rwrmi i  rr ri  i m n mr" ; 

35  pRiNT"w«oai»BrTTTm  n 1 1 1 1 1 1  f rrnwi'TT m 1 1 1 1 1 1 1  itti  rr 
40  PRINT"  Will'  I  1 1  I  !  )  i  I  I  I'  I  IT  I'  1 TTT  rUMTT'TT  FT  I"  T  FT  FITT'l  I' I  T  T  "; 

45  PRiNT,,iiiUf"m"nTiiTrTr rnmnw m mm iriirmii" 

50  SC=7680 :  CL=38400 :  B=8152 

55  DX«INT<RND<l>#3-l):I)V— l^X-li: Y-20: PRINT" W;TAB<17);6-LI 

56  PRINT" TTMiMPi"  H I 

60  FOR I s38863T0388b2 : POKEI . 1 : NEXT 
65  PQKEB- 1 . 1 08 : POKEB . 98 : P0KEB+ 1 . 1 23 

70  FQRI=1TGBS 

71  K*PEEK<197> :  IFKO33ANDKO36THEN108 

75  P0KEB-l,32:P0KEB+l>32:B«B+<K-33)-<K-36) : IFB<8i44THENB*8144 

80  I FB>8 1 6 1 THENB=8 1 6 1 

85  POKEB- b i08 : POKEB. 98  =  P0KEB+1 , 123 

100  NEXT  I  '•  PRINT"»*##»»rS  •  IFS>200THhNBS*2  '•  IFS>500THENBS=1 
181  P0KE8C+V#22+X. 32  =  P0KECL+V*22+X, 1 : V=V+DV : X-X+DX 
102  IFY>21THEN1800 

1 83  I FX> 1 ANDX<20THEN i 86 

184  IFX<2THENDX*1 : PQKE36876, 258 : GOTO150 

105  I FX> 1 STHENBX*- 1 : P0KE3687 6 . 250 : GOTO 1 50 

106  IFV<4THENDV*i : P0KE36876. 175 : OOTO150 

110  IFPEEK<SC+Y#22+X)*32THEN150 

111  POKE36876.200 
115  P«*PEEK<SC+V#22+X> 

120  I FP* 1 08THEND Va-DV  =  BX=-I : G0T0145 

125  I FP* 1 23THEND V*~DV : DX*1 = G0T0145 

130  I FP*98THENDV*-B V '•  DX*INT<RND< i  >*3-1 >  •  G0T0145 

1 35  3=8+ 1 8 1 3=S~  ( ¥<7 )  1 0-  <  ¥<5  )  #38 
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140  P0KESC+Y*22+X, 32  =  DX=INT<RND< 1 >#3-1 > 

141  IFRND<1».01THENDY— DY 
145  V-Y+DY : X=X+DX 

150  I FX< 1 QRX>20THENX=X+DX 

151  iFV<l3THENY=Y+DY 

152  PQKE36876,0 

155  PQKECL+Y#22+X, 1  =  PQKESC+Y#22+X, 81 
168  007078 

1000  FOR  I  - 1  TO2008 :  NEXT : L I =L I - 1 :  IFU>0THEN55 
1010  IF8!>HITHENHI=8 

1014  FORI =1102300 :  NEXT :  PRINT":ii3C0REl!S :  PRINT" HI  “HI 

1015  IFHI=STHEHPRINT ; PRINT" YOU  GOT  THE  HI  SCORE,  WELL  DONE!" 

1016  PRINT"  SWHNT  ANOTHER  GAME?" : POKE 198,0 
1020  GETA# :  I  FA#-"  "THEN1020 

1030  IFA$-"Y"THEN5 

1035  IFA$*"N"THENPRINT"GK. MWBYE,  THEN. " :  END 
1040  PRINT"!  DON'T  UNDERSTAND" : GOTO 1023 


Dogfight 


Out-maneuver  and  out-shoot  your  computer  controlled  opponent  in  this  game  of  flying  death. 
Avoid  crashing  into  the  mountain  or  the  enemy's  plane  as  you  line  yourself  up  for  a  shot.  The 
game  ends  if  you  crash  or  either  of  you  are  shot  down. 

A  turns  you  left, 

D  turns  you  right, 

W  moves  you  up, 

X  down,  and 

S  fires  your  gun  at  the  computer's  plane. 

You  are  the  black  plane,  the  computer  is  red  ('Red  Baron',  perhaps). 

5  CO30720 :  PQKE650, 129 
10  P0KE36879, 187: PRINT".!"; 

15  X-7988 : Y-l : Xl-7961 : Yl— 1 • S-0 : $1*0 
20  PR  I  NT 11 

25  PRiNT"»l»ll»ira  ^laBRBSBBSar 

30  PRiNT"»»»ir  miiiiniiiiir 

it 

35  F0RI-8167T08182  =  P0KEI+C0, 5 : POKEI , 160  =  NEXT I : POKES 182, 223 

1 00  P0KE36878 , 4 : PQKE3S877 , 1 35 

101  POKEX,  32 : POKEX+l ,  32 : POKEX+2, 32 : POKEX+3, 32 : POKEX-22, 32 : POKEX-21 , 32  =  POKEX-20, 3 
2 

105  POKEX-19, 32 : POKEX+23, 32 : POKEX+24, 32 
125  GETS# :  X*X+<  <A$=s"W" >-<A$-"X" > >#22 
130  IFA#b"A"THENY—  1 
135  IFA$»"D"THENV«1 
140  X-X+Y 

145  I FX<7702ORX>8 1 60THENX-7986  =  Y=1 

150  I FPEEK  <  X  >  O320RPEEK  <  X+ 1  >  O320RPEEK  <  X+2  >  O320RPEEK  <  X+3  > 032THEN 1000 


'BtmiHflr  t 

niiiuniiiiiir 
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155  I FPEEK  <  X-22  >  O320RPEEK  ( X-2 1 )  O320RPEEK  <  X-20 )  O320RPEEK  <  X- 1 9 ) 032THEN 1003 
160  I FPEEK  <  X+23 )  O320RPEEK  <  X+24  > 032THEN 1000 

165  POKEX+l+CO,  0 : P0KEX+2+C0, 0 = P0KEX-22+C0, 0  =  P0KEX-21+C0, 0 : POKEX-20+CO, 0 : POKEX- 19 
+00,  0 

166  POKEX+CO, 0  =  P0KEX+3+CQ, 0 = P0KEX+23+C0, 0 
170  IFV-1THEN200 

139  POKEX, 107  =  POKEX+1 , 13 6  =  POKEX+2, 160  =  POKEX+3, 236 
185  POKEX-21 , 85 :  POKEX-20, 73 :  POKEX-19..  233 :  POKEX+23, 81 
190  GQT0215 
200  POKEX+24+00,0 

205  POKEX, 251 : POKEX+1 ,160: POKEX+2, 196  =  POKEX+3, 1 15 
210  PQKEX-22, 223  =  POKEX-21, 85  =  POKEX-20, 73 : POKEX+24, 81 

215  POKEX1 , 32 = POKEX1+1 , 32 : P0KEX1+2, 32 : PQKEX1+3, 32 : P0KEX1-22, 32 : P0KEX1-21 , 32 : POKE 
XI -20, 32 

220  P0KEX1-19, 32  =  P0KEX1+23, 32 : P0KEX1+24, 32 

221  I  FRND  <  1  >  > . 9THENX 1 ®X 1 +22 

225  I FPEEK  C  X 1 +V 1 #5+22 ) ®2230RPEEK ( X 1 +V 1 #5+22 ) *233THENX 1 =X 1 -22 : GOTO250 

235  I FPEEK <  X 1 + V 1 #3 ) S460RPEEK <  X 1 + V 1 #3+22 ) a46THENX 1 -X 1 -22 : GOTO250 

236  I  FPEEK  ( X 1 +V 1 #2 )  ss46flNB3 1  OX  1 +V 1  #2THENX  1 =X  1  -22 :  V 1  e-Y  1 :  GQTO250 

240  I FRND  < 1 ) > . 9THENV 1 *-V 1 

241  I FRND  < 1 » . 9THENY 1 ®~ V 1 

242  I FRND  < 1 ) > . 9THENX 1— XI— 22 
245  X1=X1+V1 

250  I FX  K7702ORX 1 >8 1 60THENX 1 *796 1  =  Y 1 *- 1 

255  P0KEX1+1+C0, 2  =  P0KEX1+2+C0, 2 : P0KEX1-22+CG, 2  =  P0KEX1-21+C0, 2  =  P0KEX1-28+C0, 2 
260  POKEX 1-1 3+00,2 
265  IFV1=1THEN300 

278  POKEX 1+CO, 0 : P0KEX1+3+C0, 2  =  P0KEX1+23+C0, 0 
275  POKEX 1 , 107 : P0KEX1+1 , 136 : P0KEX1+2, 160 : POKEX 1+3, 236 
280  POKEX 1-21,85  =  POKEX 1 -20 , 73 : POKEX 1-19,233: POKEX 1+23,81 
285  G0T0315 

300  POKEX 1+CO, 2 : P0KEX1+3+C0, 0 : P0KEX1+24+C0, 0 
305  P0KEX1,251 =P0KEX1+1, 160:POKEXl+2, 196=P0KEXl+3, 115 
310  POKEX 1-22, 223  =  P0KEX1-21 , 85  =  POKEX1-20, 73  =  P0KEX1+24, 81 
315  I Ffl$» " S " flNDSss0THENSssX- 1  =  D*Y :  IFV=lTHEHS=X+4  =  P0KE36877, 240 
320  IFS*0THEN400 
325  J=1 

330  POKES,  32 :  S=S+D :  S=S-7633  =  SP-INKS/22) :  SP*S-SP#22  =  S=S+7680 
335  IFSP=0ORSPs21THENSas0  =  GOTO400 

340  IFS-XlQRS=Xl+10R<SaXl-21flNDYl*-l >OR<3-Xl-20flNDVl«l 5THEN2000 

345  I  FPEEK  <  S  > 032THENSa3  •  J=2  =  GOTO400 

350  POKES+CO,0: POKES,  46 

395  J=J+1 = IFJ<3THEN330 

400  IFS1*0THEN500 

425  >1 

430  P0KES1 , 32 : SlsSl+Dl = 81*51-7680  =  SPRINT <51/22) :SP=Sl-SP*22:Sl=Sl+7680 
435  I FSPa0ORSPa2 1 THENS 1 *0  =  GOTO500 

448  I FS 1 =X0RS 1 *X+ 1 OR  <  S 1 *X-2 1 ANDY*- 1 ) OR  <  S 1 =X~20flND Y= 1 ) THEN 1 000 
445  IFPEEK<31 X>32THEHS1=6  =  J=2  =  GOTO500 
450  POKES i+CO, 2 : POKES 1 , 46 
495  J=J+1 : IFJ<3THEN430 

500  I FS 1 “SflNDRND <  1 )  > . 9THENS 1SSX1-2:D1«V1  =  IFV 1 * 1 THENS 1 *X 1 +5  =  P0KE3S377 , 240 
505  GOTO 100 
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1000  X1*X 
£000  P0KE36878.*  15 

2801  P0KEX1 ,  32 :  POKEK1+1 ,  32 :  P0KEX1+2, 32 :  P0KEX1+3, 32  -'P0KEX1+23, 32 :  PCKEX1+24, 32 
2005  »0KEXl-22, 32 : P0KEX1-28, 32 : P0KEX1-19, 32 

2010  FORI =X 1 T08 1 85STEP23 

2011  P0KE3S875, <250-I/35>#8 

2015  POKEI+CO, 4  =  P0KEI+C0+21 , 4 : P0KEI+C0-21 , 4 : P0KEI+C0-23, 4 

2020  POKE  I ..  160  =  POKE  I -21 , 255 :  POKEI+21 ..  255 :  POKEI-23, 127 

2021  FORJ=1TO100 : NEXT 

2025  POKEI+CO, 0 : POKEI+CO-23, 0  =  POKEI-21 , 32  :  POKEI+21 , 32 
2030  NEXT 

2035  1=1-23 : POKEI+CO, 7 : POKEI+CO+1 , 7 : POKEI , 127 : POKEI+1 *  255 
2040  PQKE36879,42 

3800  POKE650, 0  =  P0KE36878, 0 : P0KE36877, 0 : P0KE36875, 0 
3005  GOTO3085 


Night  Raid 

Under  cover  of  darkness  you  pilot  your  plane  over  the  city,  picking  out  your  target  in  the  light  of 
the  flashes  of  enemy  flak. 

Tryandbomb  the  reactor  before  you  are  hit  by  flak  or  one  of  the  enemy's  grou  nd  to  air  missiles. 
W  moves  your  plane  up, 

X  down, 

D  accelerates  you  forwards  (you  already  move  forwards),  and 
A  backs  you  up. 

S  will  drop  a  bomb  on  the  city. 


5  CO=30720 

10  P0KE36879, 8  ’•  PR  I  NT  "T :  M=0 :  M1*0 :  B-0 :  P-7680 :  F-0 
15  PRINT " I  »«  B  \" 

20  PRINTIIUVPMI  a  •  I  S  B  BP" 

25  PRINT"WI8  111  IS!  MB  IS  SI'" 

30  PR  I  NT  "HI.  i  Si  SR.  ■  I !  /-K  S  "  *&  B  Ml  BH.MM  " 

35  PRINT"nS  r 

40  F0RI-8142T08185  :  PQKEI+CO, 0 : POKEI , 160 : NEXT 
50  P0KEP^32:P=P+1 :K»PEEK<197) :P=P+<K=17)#2-<K*18) 

55  P=P+<<K=9)-<K=26))*22 

60  I FP<7680THENP=7680 

61  I FP>7965THENP=P-22 

65  I FPEEK  <  P ) 032ANDPEEK  <  P ) 077ANDPEEK  <  P )  O09THEN 1 000 
70  POKEP+CO 1 3 : POKEP  >  62 

75  I FM>0ORM 1 >0THENPOKE36878  > 5 : P0KE36877, 130 

76  I FM< 1 flNDM 1< 1 THENP0KE36877  > 0 
80  IFM>0QRM<0THENi00 

90  IFRND< 1 )>. 95THENM-8029 : PQKEM+CO, 4 : POKEM, 42  =  FORI-1TO100 : NEXT 
100  IFIK1THEN150 

1 85  POKEM+CO , 1 : POKEM , 77 : P0KEM+ 1,32: POKEM+22 , 32 : M=M-23 

110  IFP07679THEN115 

111  M=0 
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112  FORI “8029TO7688STEP-23 : POKE I , 32 : NEXT  :  P0KE36877 , 0 : GOTO 1 50 
115  I FPEEK  <  M ) “32THEN 1 35 
120  I FPEEK  <  M ) =62THEN 1000 

125  I FPEEK < M ) =46THENP0KEM , 42 : FORI=1TO100 : NEXT : B=0  =  M=8 : GOTOl 1 1 
135  POKEM+CO, 2 : POKEM+l+CO, 2 : P0KEM+C0+22, 2 
1 40  POKEM ,127s POKEM+ 1,123: POKEM+22 , 1 24 
150  I  FM  1  >0ORM  K0THEN 1 70 

160  IFRMIK 1 )>. 95THENM 1=8062 : POKEM1+CO, 4 : POKEM1 , 42  =  FORI=1TO100 : NEXT 
170  IFM1C1THEN220 

175  POKEM 1+C0+22, 1 : P0KEM1+22, 89  :  P0KEM1+23, 32  :  Ml-Ml-22 

180  I FM 1 >7679THEN 1 85 

181  M1=0 

162  FORI =8062TO7680STEP-22 : POKEI , 32 : NEXT : POKE8084, 93 : POKE8084+CO, 0 : P0KE36877, 8 : G 
OTO220 

185  I FPEEK (Ml) =32THEN205 
138  I FPEEK ( M  D  =62THEN 1 000 

195  I FPEEK <  M 1 ) “46THENPGKEM 1 , 42 : FORI-1TO100 : NEXT : B=0 : M1=0  :  G0T0181 
205  POKEM 1 +CO , 2 : POKEM 1+1+00,2= POKEM 1 +C0+22 , 2 
210  POKEM 1 , 225 : P0KEM1+22, 126  :  P0KEM1+23, 126 
220  IFK=41flNBB=0THENB=P+22 

225  IFB*0THEN300 

226  P0KE36878 ,12  =  P0KE36876 , BX25-75 

230  POKEB, 32  =  B=B+23 : !FPEEK<B)=32fiHBB<8185THEN290 

231  POKE36876,0 

235  I FB>3 1 85THENB*0 : GOTO300 
240  I  FBOMflNDBOM  1 THEN260 

245  POKEB+CO, 4  =  POKEB, 42 : FORI=1TO100 : NEXT : POKEB, 32 
250  I FB=MTHENB=0 : POKEM+ 1,32  =  POKEM+22 , 32  :  M=0 : GOTO 1 1 1 
255  B=0 : POKEM 1+22, 32  =  P0KEM1+23, 32  :  M1=0 : G0T0181 

260  I FB<8032THEN290 

261  P0KE36879, 42  :  POKEB+CO, 7  =  POKEB+CO+1 , 7  =  POKEB, 77 : POKEB+1 , 78 

262  P0KE36878, 15  '•  P0KE36877, 147 :  FORI-1TO308 :  NEXT 

264  P0KE36879, 8 

265  I FB<3059ORB>8860THEN282 

266  POKEB+CO, 1 = POKEB+CO+1 , 1 : P0KEB+C0+22, 1 =  P0KEB+C0+23, 1 

267  POKEB , 32 : POKEB+ 1 , 32 

278  FORI*1TO50 :  P0KE36879, 127 :  P0KE36379, 42 

27 1  POKEB , 32  = I F I >=25THENP0KEB+ 1,32  =  POKEB+22 , 32  =  P0KEB+23 , 32 

275  I F I C25THENP0KEB , 87 

280  I F I >=25THENP0KEB , 85  =  POKEB+1 , 73  :  POKEB+22, 74 : POKEB+23, 75 

281  NEXT I : PR I NT "T : P0KE36878, 8 : P0KE36877, 0 : STOP 

282  POKEB, 32= POKEB+1, 32 

283  I  FBO8052flNBBO8074THEN286 

284  IFM>0THENPOKEM, 32 : POKEM+1 , 32  =  POKEM+22, 32 

285  M=-l: GOTOl 12 

286  I FBO805 1THEN289 

287  I FM 1 >0THEHPOKEM 1,32  =  POKEM 1 +22 , 32 : POKEM 1 +23 , 32 

288  Ml=-l :G0T0182 

289  B=0 : GOTO300 

290  POKEB+CO, 5: POKEB, 46 

300  IFRND< IK. 9THEN58 

301  F* I NT  <  RNB  < 1 ) #264+768 1 ) 

305  I FF*MORF»M 1 THEN50 
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306  =  P0KE36878, 9 : P0KE36875, 130 : P0KE36876, 129 : P0KE36877, 163 

310  POKEF+CO, 4 : P0KEF+C0-23, 4 : P0KEF+C0-21 , 4  =  P0KEF+C0+21 , 4 : P0KEF+C0+23, 4 

315  PGKE36879, 40 : POKEF , 209 : POKEF-23, 127 : POKEF-21 , 255 : POKEF+21 , 255  =  POKEF+23, 127 

320  I FF=P0RF-2 1 =P0RF-23=P0RF+2 1 ■P0RF+23-PTHEN 1015 

325  FORI-1TO200 : NEXT : P0KE36879,  8 : POKEF.. 32  :  POKEF-23, 32 : POKEF-21 , 32 : POKEF+21. ,  32 
330  POKEF+23, 32  =  P0KE36875 , 0 : P0KE36877, 0 : P0KE36876, 0 : GOTO50 

1000  P0KE36879, 120 : PQKEP+CO, 2 : P0KEP+C0+23, 2 : P0KEP+C0+2, 2  s P0KEP+C0+46, 2  :  POKEP+CO+ 
44.-2 

1010  POKEP ,  127 : POKEP+2 , 255 : POKEP+23 , 209 : POKEP+44 , 255 : POKEP+46 , 1 27 
1015  P0KE36875 , 0 : P0KE36876 , 0 : P0KE36877 , 0  s P0KE36878 , 0 
1020  END 


Tank  Battle 

Form  a  strategy  to  defeat  the  computer's  tank  in  this  realtime  game.  Gain  points  by  shooting 
the  computer's  tank  and  its  fuel  drums.  Move  around  the  screen,  chasing  the  computer  and 
avoiding  the  mines. 

You  start  off  at  the  bottom  right  corner,  the  computer  is  at  the  top  left. 

W  moves  your  tank  up, 

A  moves  it  left, 

D  moves  it  right, 

X  moves  it  down,  and 
S  fires  your  gun. 

The  winner  is  the  first  one  to  get  1 50  points. 


5  POKE650,255 

10  P0KE36879, 248 s PR I NT "T : 00=30720 : SC=0  =  CC=0 

15  F0RI=1T015 • M*7680+INT<RND< 1 >#506) : P0KEM+C0, 2  =  POKEM, 42 : NEXT 

20  FORI*1TO10 : M=7682+RND< 1 >#5+< <RND< 1 >#5+1 >#22> 

25  PQKEM+CD  , 5 : POKEM  , 1 60 
30  NEXT 

35  FORI*1TO10 : M=8185-RND< 1 )#3-< <RND< 1 >#5+1 >#22> 

40  P0KEM+C0 , 6 : POKEM , 160 
45  NEXT 

50  FOR I “7684T0772BSTEP22 : P0KEI+C0, 2  =  P0KEI+1+C0, 2 : POKE I +2+00, 2 
55  P0KEL81  =P0KEI+1,81  :P0KEI+2,81  =NEXT 

60  FOR I =8 1 35T08 1 8 1 STEP22 : POKE I +00 , 3 : P0KEI+1+C0, 3 : POKE I +2+00, 3 

65  POKE I , 81 : P0KEI+1 , 81 : PQKEI+2, 81 : NEXT 

70  POKE38400 , 5  > P0KE389G5 , 6 : POKE7680 ,114: P0KE8 185,113 

75  0=7680 : P=8185 : DC=22 : DP— 22 : EP=0 : EC=0 

80  DIMDX<3> :  DX<0>=1 : DXC 1  >=22 :  DX<2>— 1 :  DJK3>—  22 

100  GETfl# : I Ffl$= " " 0Rfl$= " S " THEN 1 50 
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105  EP=(fl**"R" >-<fi$*"D" >+<  <R$*"W" ) )#22 

110  IFEP-0THEN150 

111  P0KE36878,5:P0KE36877,238 
115  DP=EP : POKEP, 32 : P=P+DP 

117  I FP<?680ORP>8 1 S5THENP=P~DP 

120  I FPEEK <  P ) *42THENP0KEP+C0 ,  4 : P0KE36877, 140  '•  FORI=1TO200 :  NEXT :  CC=CC+20 
125  I  FPEEK  <  P ) <>32THENP*P~DP 
130  POKEP+CO, 6 : CH=107  = IFBP=22THENCH=1 14 
135  I FDP*- 1 THENCH* 115 
140  I FDP*~22THENCH* 113 
145  POKEP, CH 

150  P0KE36877  ,  0  '•  P0KE36876 , 0 

151  EC*DC 

152  I FPEEK <  C+EC ) =32RNBRND  < 1 ».  9THEN175 
155  1=0 

160  I FC+EC<7680THEN 175 
165  I FC+E08 1 85THEN 1 75 
170  I FPEEK  <  C+EC ) *32THEN200 
175  1*1+1 

180  IFI>8THEN195 

181  IFRNB( 1 X.  9THEN193 
185  I FC<PTHENEC=BX  < I NT  <  RND  < 1 >  #2 ) ) : GOTO 1 60 
190  EC»BX< INT(RNB< 1 >#2+2) ) : GOTO160 

193  EC«BX<INf<RND<i>*4» 

194  GOTO 160 

195  EC*0 : GOTO205 

200  BC=EC : I FPEEK  <  C+DC#2 ) *46THENDC»-BC : GOTO 1 50 
205  POKEC, 32 : C=C+EC : POKEC+CO, 5  =  CH=107 : IFBC=22THENCH=1 14 
210  I FBC=- 1 THENCH* 115 
215  IFBC*~22THENCH=113 
22^  pnKgn ■ CH 

225  I FS=0RNBR$* " S " THENS*P+BP : BS*BP : P0KE36876 , 245 : P0KE36877 , l 50 

230  IFS*0THEN300 

231  J*1 

235  POKES, 32 : S*S+DS : IFPEEK(S)=32THEN260 

236  P0KE36877, 130 
240  I FPEEK  <  S ) 08 1 0RS>79 1 0THEN255 
245  POKES+CO , 4 : POKES , 42 
250  FORI=1TO200 :  NEXT  '■  POKES, 32  '■  SC=SC+10 

255  I FS*CTHENSC*SC+20 : POKEC+CO,  4 : POKEC, 42 : P0KE36876, 130 

256  S*0 : GOTO300 

260  S*S-7680  =  V* I NT (S/22) : X*S-Y#22 • S*S+7680 
265  IFX*0ORX*21ORV=0ORV=22THENS=0 : GOTO300 
270  POKES+CO, 6- POKES, 46 
275  J=J+1 : IFJ<3THEN235 

300  IFRNB(1 ». 9PNBS 1 »0THENS 1 =C+BC : CS=BC : P0KE36877, 140 : P0KE36876, 245 

305  IFS1-0THEN400 

306  J*1 

310  POKES! , 32 : S1*S1+CS : IFPEEKCSl )*32THEN335 

311  P0KE36877, 130 

315  1  FPEEK  <  S 1 )  08 1 ORS 1  <79 1 0THEN330 
320  POKES 1 +C0 , 4 : POKES 1 , 42 
325  for  I  *  1 TO200  NEXT :  POKES  1,32:  CC*CC+ 1 0 
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330  IFSl*PTHENCC*CC+20 :  POKEP+CO,  4 :  POKER,  42 : P0KE36876, 130 

331  S1*0:GOTO400 

335  S1«S1-7S80= V=INT<Sl/22) :X*Sl-V#22:Sl*Sl+7680 

340  I FX»0ORX«2 1 ORV=0OR¥*22TNENS 1 «0 : GOTO400 

345  POKES, 32 : S=8-7680 : V= I NT (S/22) : X=S-Y*22 

350  S*S+7680 : IFX*0ORX=21ORY=0ORVB22THENSa0 : GOTO400 

355  POKES 1 +CO , 5 : POKES 1 , 46 

360  J*J+1  IFJOTHEN310 

400  I  FSC<!  1 50flNBCC<  1 58THEN 1 00 

1000  POKE650, 0 : FORI=1TO2000 : NEXT : PR  I  NT  "T 

1 085  PR I NT " SCORE : " : PR I NT " VOU " SC 

1010  PRINT" COMPUTER 11 CC 

1015  P0KE36876, 0 : P0KE36877, 0 : P0KE36878, 0 


Danger  Star 

Accelerate  your  fighter  up  the  trench  of  the  Danger  Star,  avoiding  the  enemy  laser  fire.  Then, 
as  your  target  comes  into  view,  fire  your  torpedo  at  the  exhaust  port  and  hope  for  a  direct  hit. 

Z  moves  your  fighter  right, 

C  moves  it  right,  and 
M  fires  a  torpedo. 

Any  numerical  key  will  alter  your  speed  up  the  trench. 

Remember,  don't  fire  too  early. 


1  P0KE36879, 24 : PQKE650, 129 : SC=4+INT(RND< 1 )#11 >  =  SP*1 • DI=0  :  TP*0 : TL=5 : CQ»30720 

2  PRINT"raMBMW^  :PRINTTRB(SC)"ilii>rT 

3  PRINT"*™ 

4  PRINT"MdWMDIST.  COVERED : " 

5  PRINT"™ 

6  PR  I  NT "  TUSITORPEDOES  LEFT:" 

10  PRINT".™™  .  .  W  10  ,W  ™ 

r 

™  .  .  w  ia  .  w" 

™  .  .  w  la  .  w" 


15  PRINT" 
20  PRINT" 
25  PRINT" 
30  PRINT" 
35  PRINT" 
40  PRINT" 
45  PRINT" 
50  PRINT" 


/ 


™  9 

™  W 

/\ 

/  \ 

/  \ 


/  V 


/ 


V 


/ 


/ 


\" 


V 


60  FOR I ■7680TO0 1 64STEP22 : POKEI+CO, 2 : POKE 1, 160  :  NEXT  :  FORI«*7701TO8165STEP22 : PQKEI+C 

0,2 


78  POKEI, 160: NEXT 

80  F0RI*8165T08184 : POKEI+CO, 2 : POKEI ,160: NEXT 
100  QETR* : IFR*«" "THEN 120 
110  I  Ffif  ■ "  Z " 0RR$» " C " THEN500 

115  IFflf«"M"flNDTP*0RNI)TLO0THENTP*8098+SC : TL*TL-1 : T<  1  )«32 : T<2>*32 :  T(3)*32 :  G0T012 
0 
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118  SP=VRL<fl$) 
120  DI-DI+1 


130  I FRND <  1 X .  1 1 4ANDD I <460THENGOSUB 1 000 
135  I FRND < 1 X. 1 1THENGOSUB2500 
140  1 FD I  *460THENGOSUB  1 500 
150  IFDI*560THEN2000 

160  PR  I  NT "  miBVf VMVBBVkBPIfll"  j  DI 

161  PR  I  NT "  mVlPilBBIPBIillBVIifl" ;  TL 

162  IFTPO0THEN8OSUB3000 
165  IFSP>7THEN180 

170  FORI*1TO1400~SP#200 : NEXT 
180  GOTO 100 

500  PR  I  NT 11 :  PRINTTAB<SC> " 


II 


505  SC*SC+<fl*a"Z")-<A**"C,,> 

510  I FSO 1 6THENSC*  1 6 
520  IFSC<4THENSC*4 

525  print1 pr  i  nttab  <  sc ) 11  iiar^i" 

530  GOTO120 

1800  P0KE36879/ 120: V*INT<RND<1>*6> :X*2+INT<RNDa>#16> :FL*798S+<Y#22+X> 

1018  F<l>«PEEK<FL-23) 

1020  F<2>*PEEK<FL~21> 

1030  F<3)*PEEK<FL> 

1040  F<4>-PEEK<FL+21> 

1050  F<5)«PEEK<FL+23> 

1060  P0KEFL-23+C0* 2 : POKEFL-23, 127 : PQKEFL-21+CQ, 2  s POKEFL-21 , 255 : POKEFL+CQ, 4  :  POKEF 
L,01 

1070  PQKEFL+21+C0; 2 : POKEFL+21 , 255 : P0KEFL+23+C0, 2  :  POKEFL+23, 127 
1075  F0RI*1T01U:NEXT 

1080  P0KEFL-23+C0> 0 : POKEFL-23, F< 1 ) : POKEFL-21 +C0, 0 : POKEFL-21 , F<2> : POKEFL+CQ, 0 : POK 
EFL,F<3> 

1090  POKEFL+21 +C0; 0 : POKEFL+21 #F<4) • P0KEFL+23+CQ, 0 : POKEFL+23; F<5) 

1091  I FF  <  3 ) “TPORF  <  3 ) "TP+220RF  <  3 ) “TP+23THEN 1 200 
1100  P0KE36879; 24 

1110  RETURN 

1200  POKETP, T<1) : POKETP+22, T<2) =  PGKETP+23,  T<3) =  GQTO3200 
1500  P0KE7954+C0, 2 : P0KE7954, 213 : P0KE7955+C0; 2 : P0KE7955, 201 
1510  P0KE7976+C0, 2 : P0KE7976, 202 : P0KE7977+CQ, 2 i PQKE7977, 203 
1520  RETURN 

2000  P0KE36879> 120 : FORI=1TO250 : NEXT : P0KE36879, 40 
2005  FORIaiTO250 : NEXT 

2010  PQKE36879, 120 : FORI-1TO250 : NEXT : P0KE36879, 40 
2015  FORI*»1TQ250 :  NEXT 

2020  P0KE36879; 120  =  FORI-1TO250 : NEXT : P0KE36879, 40 
2025  FORI«1TO250 : NEXT 

2030  P0KE36879/  8 :  PRINT'TWi'OU  FAILED  I ! ! !!!  W — C 

2050  REMMKflBOOMW 
2100  END 

2500  FORI “7990TQ8 1 52STEP22 

2501  IFI*TP0RI*TP+23THENH*1 
2510  POKEI+CO, 2 : POKE I , 103 : NEXT 
2515  FORIS1TO100 : NEXT 

2520  FORI “7998T08 1 52STEP22 
2530  POKE L 32: NEXT 
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2535  I FH*8 1  THEN  1 200 
2548  IFSO9ORSO10THEN2008 
2558  RETURN 

3000  POKETPj T< 1 > : POKETP+22, T<2> 

3001  POKETP+23,TO> 

3010  TP*TP~22 

3020  I FTP<7724THEN3200 

3030  I F < TPa79980RTP»7999 ) ANDSP>5ANDD I >525THEN4000 

3031  I FPEEK  <  TP ) = 1 60ORPEEK  < TP ) *46THENZ  < 1 >-128 

3032  I FPEEK  <  TP+22 ) « 1 60ORPEEK  <  TP+22 ) -46THENZ  <  2 )  - 1 28 

3034  I FPEEK <  TP+23 ) = 1 60ORPEEK < TP+23 > -46THENZ < 3 > * 1 28 

3035  T<1>-PEEK<TP> 

3036  T  <  2 ) -PEEK <  TP+22 ) 

3038  TO)  -PEEK (TP+23 ) 

3040  PQKETP+CQ; 0 : POKETP; 103+20 ) : P0KETP+22+CQ; 0 : PQKETP+22, 106+Z<2) : P0KETP+23+C0; 


0 

3045  PQKETP+23, 101+ZO) 

3050  RETURN 

3200  TP-0 : F0RI-1T03 : Z< I >-0  =  NEXT  =  H=0 

3201  RETURN 
4000  FQRI-1TQ5 


4005  P0KE7954+C0, 7 : P0KE7954, 213 : P0KE7955+C0, 2  =  PQKE7955, 201 
4010  P0KE7976+C0, 7 : P0KE7976, 202 : PQKE7977+C0, 7 : P0KE7977, 203 
4020  FQRJ-1TQ250 : NEXTJ 

4030  P0KE7954+C0, 2 : P0KE7954, 213 : P0KE7955+C0, 2 : P0KE7955, 201 
4040  P0KE7976+C0, 2  •  P0KE7976, 202 : P0KE7977+C0, 2 :  P0KE7977, 203 
4050  NEXT 
4060  FORI-1TO10 

4100  P0KE36879, 120 •' FORJ-1TO250  =  NEXT :  P0KE36879, 40 
4110  FORI 1-1TO180: NEXT 
4120  NEXT 


4200  P0KE36879*  8 :  PR  I  NT "  HStJELL  DONE  LUKE" 

4210  PRINT"WOU  DESTROYED  THE  1SDEATH  STAR*" 
4220  PRINT"RND  SAVED  EVERYONE. " 

4300  REM**END** 
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Reversi 

Reversi  (often  called  Othello™)  was  invented  in  1888.  Reversi  was  played  on  a  standard 
checkers  board,  using  double-sided  pieces— red  on  one  side,  black  on  the  other.  In  his  splendid 
book  “Discovering  Old  Board  Games”  (Shire  Publications  Ltd.,  Aylesbury,  1 980),  R.C.  Bell  ex¬ 
plains  that  black  begins  the  game  by  placing  a  piece,  black  side  up  on  one  of  the  four  central 
squares  on  the  empty  board.  Red  replies  by  placing  her  first  piece,  red  side  up  on  another  central 
square.  “These  four  squares  are  covered  in  the  first  four  turns  of  play,  and  then  the  players  con¬ 
tinue  alternately,  placing  their  pieces  on  a  square  adjacent  to  the  one  occupied  by  an  enemy 
piece,”  Mr.  Bell  writes. 

Any  enemy  pieces  in  a  straight  line  between  the  latest  piece  placed  and  another  one  of  the 
player's  pieces,  is  then  turned  over  to  show  the  player's  colour.  The  winner  is  the  player  with 
the  most  pieces  when  the  board  is  completely  covered,  or  when  neither  player  can  move. 

You'll  find  the  VIC  plays  slowly,  but  remarkably  well,  in  this  version  of  the  game.  You  get  the 
choice  of  going  first  or  second.  You  move  by  entering  the  number  of  the  square  down  the  side, 
then  the  number  across,  entering  both  as  one  double-digit  number  (such  as  36). 

Structure  of  the  program: 

Line  6:  Sets  a  black  border. 

Lines  1 0  to  110:  Sets  all  elements  (except  those  around  the  'frame')  of  the  board  to  the  code 
of  a  full  stop  (42).  Lines  70  to  1 00  set  the  first  four  pieces  in  place  (noting  that  X  has  been 
set  equal  to  the  character  code  of  X  and  0to  the  code  of  0). 

Lines  1 20  to  1 70:  Give  the  player  the  option  of  first  move. 

Routine  from  line  1 000:  This  is  the  heart  of  the  game,  the  VIC's  Reversi-playing  intelligence. 
Lines  1 340:  If  both  H  and  R  equal  zero,  then  neither  the  computer  nor  the  human  player  can 
move,  so  the  game  is  over.  In  this  case,  control  is  sent  to  the  routine  from  line  5000  which 
determines  who  has  won. 

Routine  from  2000:  This  accepts  the  player's  move,  and  acts  on  this.  The  player  enters  a  zero 
if  she  is  unable  to  move  (line  2040). 

Routine  from  3000:  Prints  and  reprints  the  board.  Note  the  use  of  the  'home'  key  here  to  make 
the  pieces  change  before  your  eyes. 

Routine  from  4000:  This  flips  the  pieces. 

Routine  from  5000:  End  of  game. 
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Suggestions  for  improvement: 

•  Change  the  representation  of  the  pieces  to  use,  say,  red  and  blue  circles. 

•  Change  the  computer's  strategy  by  experiment  with  the  value  1 220  to  1 270.  Changing  all 
the  two's  to  three's  improves  the  VIC's  play  slightly,  but  slows  its  response  time  down. 

•  Add  some  sound  for  each  piece  as  it  is  flipped. 

1  REM  REVERSI  CHRRLTON/HRRTHELL 

2  REM  NOTE  LETTER  0,  NOT  ZERO 

3  REM  CLS  IS  CLEAR  SCREEN 

4  PRINT’’T:P.EM  CLS 

5  X=RSC  <  "  K "  >  •  0=RSC  ■'  "  0  " ) 

6  POKE  36879, 24 : REM  BLACK  BORDER 
10  DIMR<10, 10) 

20  FORB=1TO10 
30  F0RC~1T013 

46  IF  EOl  AND  COi  AND  BO  10  AND  CO  10  THEN  A<B  ,C>  =  ASC<,:.  "> 

50  NEXTC 
SO  NEXTB 
70  A<5, 5)=X 
80  A(6,6}“X 
98  A<6, 5>=0 
100  A<5,6)=0 
110  P~0 

120  PRINT’TWDO  VOU  WANT  TO  GO": REM  CLS,  RED 
130  PR I NT "FIRST  Cl-VES,  2-HO)" 

140  INPUT  W 

150  PR I NT "35": REM  CLS,  BLUE 

160  GOSUB  3000 

170  IF  W»1  THEN  2000 

1000  PRINT"  MV  MOVE 

1010  S-0 

1020  T~H 

1630  H=0 

1040  F0RA=2  TO  9 

1050  F0RB=2  TO  9 

1060  IF  RCA,  B>  046  THEN  1320 

1070  O=0 

1080  F0RC~-1  TO  1 
1090  FORD~-i  TO  1 
1100  K=0 
1110  F=A 
1120  G“B 

1130  IFA<F+C,G+D>OS  THEN  1180 

1140  K»K+1 

1150  F=F+C 

1160  G=G+D 

1170  GOTO 1130 

1180  IFR<F+C,G+DK>T  THEN  1200 
1190  Q-Q+K 
1200  NEXTD 
1210  NEXTC 

1220  IFA~2  OR  A=9  THEN  0=0*2 
1230  IFB=2  OR  B=9  THEN  0=0*2 
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1240  IFA~3  OR  A“8  THEN  Q=Q/2 

1250  IFB-3  OR  B=8  THEN  Q=Q/2 

1260  IF<A=2  OR  A=9)  AND  <B=3  OR  B»8)  THEN  Q=Q/2 

1270  IF(fl~3  0RA~8>AND<Z=2  OR  Z«9>  THEN  GhQ/2 

1280  IF  Q<H  OR  Q-Q  OR  <RND<1»0.3  AND  Q*H)  THEN  1320 

1298  H=Q 

1300  M*A 

1310  N=B 

1320  NEXTB 

1330  NEXT A 

1340  IFH~0  AND  R=6  THEN  5000 
1350  IFH-0  THEN  1370 
1360  GOSUB  4000 
1370  GOSUB  3000 
2000  INPUT"VOUR  GO" JR 
2010  S=X 

2026  T~0  '•  REM  LETTER  0 

2035  REM  0  TO  PASS 

2040  IF  R=0  THEN  2090 

2050  IF  R<1 1  OR  R>88  THEN  2000 

2060  M~IHT <R/10>+1 

2070  N=R- 1 0* I NT  < R/ 1 0 )  + 1 

2080  GOSUB  4006 

2090  GOSUB  3000 

2106  GOTO  1009 

3000  PRINT  "S" :REM  HOME 

3010  C=0 

3020  H=0 

3030  PRINT: PRINT"!  SIRE VERSIS"  : PRINT 

3032  REM  BLACK , RVSON  ,  RVSOFF 

3035  PRINT"*  31234567885" : REM  RED, RVSON, RVSOFF, BLUE 

3046  FORB-2  TO  9 

3050  PRINTB-U 

3068  F0RD=2T09 

3070  PRINT  CHR$(A(Bj>D))J 

3030  IF  ACB,D>=X  THEN  C=C+1 

3090  IF  A<B,D)~0  THEN  H=H+1 

3106  NEXTB 

3110  PRINTB-1 

3120  NEXTB 

3130  PRINT"*  312345673Si" : REM  RED, RVSON, RVSOFF, GREEN 
3140  PRINT 

3150  PRINT"  I  HAVE*" J  C 
3152  PRINT 

3155  PRINT''  BWOU  HAVE*"JHJ"  3" 

3157  PRINT 
3170  RETURN 
4000  FORC--1  TO  1 
4010  FORD^-l  TO  1 
4020  F*M 
4030  G^N 

4040  IFA<F+C,G+D>OS  THEN  4080 
4050  F*F+C 
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4060  G=G+D 
4070  GOTO4040 

4080  IFA<F+C,G+DX>T  THEN  4140 
4090  A<F,G>=T 

4100  IF  M=F  AND  H=G  THEN  4140 

4110  F=F-C 

4120  G=G~D 

4130  GOTO4090 

4140  NEXTD 

4150  NEXTC 

4160  RETURN 

5000  IFC>H  THEN  PRINT" I  W0N“JC;H 
5010  IFH<C  THEN  PRINT"V0U  W0N";C;H 
5020  IFH=C  THEN  PRINT" IT'S  A  DRAW!" 

5030  END 

Fruit  Machine 

This  splendid  program,  which  uses  the  VIC's  graphics  most  effectively,  was  written  for  the 
book  by  M  Kendall.  There  are  three  reels,  and  each  reel  has  four  symbols.  You  can  stop  all  the 
reels,  then  either  HOLD  or  NUDGE  each  one. 

Due  to  effective  government  cost-cutting,  you  start  with  5p,  and  each  game  costs  you  just 
2p. 


The  winning  combinations: 


Same,  same,  same 

-5p 

Same,  same,  any 

-3p 

Any,  same,  same 

-Ip 

Your  controls: 

Any  key  to  stop  the  reels 
N  to  NUDGE 
H  to  HOLD 
Any  to  play  again 

0  P0KE36879,27:PRINT"3W  BY  M. KENDALL  1982" 

1  PRINT"JSW3®WI  3D0  YOU  WANT"  =  PRINT"!*  ^INSTRUCTIONS?" :  PR  I  NT"  XHHffi  <:V  HR 
N>" 

2  GETQ$ : IFQ$=" "THEN2 

3  IFQ$="V"THEN,  GO3UB1308 

4  L=5 

5  FRINT’TJ" 

6  L=L-2 

7  W=0 

8  POKE  36878,1 8 

9  POKE  36879,72 

10  A*a>="M  ^vNaiiMia  - >» 

20  a$<2>«"  uniiaa  &*mia  saisna  :  ssssaassh  ■" 

30  A*<3)*”3a  Ki)»aiaa  Si^aSBBiia  &  KUIBIOi  ■" 

40  fi$<4>="  .1  ■  *1113  *1111  9  *SSEBIDF  "SSBia  -  " 
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45  F0RN=1T03 

50  fi«INT <RND< 1 )#4)+l 

51  fi<N>*fl 

54  G*<N-1>#7+1 

55  PRINTTRB<G) "  3flSSSBS[«  &SBBBSB!  3BBBBSBBI 

II 

er.£  PP7hJT"31» 

60  PRINTTflB<G);fl$<fl) 

61  POKE  36875, 200 :FORZ»1TO10: NEXT :P0KE36875.8 
66  PRINT"*" 

70  NEXTN 

80  OETQ#:IFQ»O"”THENi30 

100  G0T045 

138  F0RN«1T03 

200  3ETQ$ : IFQ$=" "THEN200 

210  I FQf = " H " THEN250 

220  I FQf = " N " THENGOSUB380 = GGTO240 

230  GOTO200 

240  PRINTTRB< <N-1  >*7+1 >  " MSD&WJBGETI  II I II 1" 

245  GOTO260 

250  PRINTTRB<  <N-1  )#7+l )  "MBWWKWM  HOLD.TII  1 1 1 1 3" 

260  NEXTN 
270  GOTO500 
239  END 

300  fl=  I  NT  < RNIi  <  1 )  $4 >  + 1 

301  Rf.N‘/=fi 

385  FR I  NTT RB  ( <  N- i >  *7+ 1 > "  3BBBS8I  HBBB1SI  »|||l|| 


310 

320 

330 

500 

510 

520 

533 

550 

56S 

563 

565 

570 

575 

533 

600 

610 

7©0 

701 


PRINT  ,:SW,!  J  TAB<  <N-1  )#7+l  >R$<fl> 
PRINT"*" 

RETURN 


PR  I  NT  ”  jBKDaWBBaia)^^  I NN I HG3 ' r ; 

I FR < i ) =fi ( 2 >  RNBR < 2  > =fi < 3 ) THENW=5 : GGT0553 
I Fn ( 1 ) =n ( 2 > THENW-S 
I FA  <  2  >  =A  <  3  >  THENW= 1 
PRINTS; "IP  MINUS  2P  " 

PR I NT "M  FOR  THIS  GAME" 


I FW-5THENPR I  NT " »  SkJRCKPGTSTT1  '•  GOSUB9000 


PR  I  NT  "SMS" 

L-L+W: PRINT"*  aiONEV 

IF  L y2Z  THEN8308 
IFLC3THENFR I  NT "  TIT 
GETQf- :  IFQ$0"  "THEN5 


— " ;  L 


VOU  ARE  BROKE! !" :GOTO700 


GOTO600 

PRINT"»aTHRT8  THE  END  FOR  VOU" 


FQRZ= 1 28T0255 : P0KE36877 , Z'FORT=1TO10: NEXTT , Z 


782  P0KE36877 , 0 

710  OETQ$ • IFQ$=" "THEN710 

730  RUN 

1000  PRINT'KT 

1010  PRINT"*  VIC  FRUIT  MACHINE 
1028  PRINT"  “ 

1030  PR I NT "k  THERE  ARE  3  REELS* 


HBBBBBBI 


MIIUBBI 
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1040  PRINT  "AND  EACH  REEL  HAS  FOUR  MM  Wk] 

1 050  PRINT" SYMBOLS .  38  JTfcS 

1060  PRINT"!#  VOU  CAN  STOP  ALL  THE 
1070  PRINT"REELS  THEN  EITHER  HOLD 
1080  PR  I  NT  "OR  NUDGE  EACH  ONE.  3 

1030  PRINT"  *  VOU  START  WITH  5 P  &»  NflRsjW 

1180  PR  I  NT  "EACH  GAME  COSTS  2P.  QhKgBm \ 

1118  PRINT " iMSPRESS  BAR  TO  CONTINUE."  qg pS 

1 120  GETA$ :  IFAf*"  "THEN  1120  ^N||| 

2000  PRINT"!"  HRW 

2019  PRINT"*  THE  WINNING  PATTERNS®  feSST 

2020  PRINT"  ARE:®  wMW 

2030  PRINT"k  SANE  SANE  SANE*5PW  Wm 

2040  PRINT"  SANE  SANE  ANY  =3PM  ■» 

2050  PRINT"  ANY  SAME  SAME=1P®  MBS 

2860  PRINT"*  THE  CONTROL  KEYS  ARE'-  Wfflk 

2070  PR I NT "k  RNY=ST0P  REELS®  Wffl 

2088  PRINT"  N*NUDGEM  WL 

2038  PRINT"  H=H0LDM 

2180  PRINT"  ANY=SPIN  AGAIN® 

2110  PRINT"*  PRESS  BAR  TO  PLAY"  '  /4Pr4/ 

2120  GETA$ : IFA$a" "THEN2120  ’ 

2130  RETURN 

7999  END 

8000  PRINT".!®*®  CONGRATULATIONS": PRINT" MfffGU'VE  BROKEN  TH 
OUT  OF  NONEV 

8001  P0KE36378/ 15 

8002  P0KE36879/24 

8005  PRINT"MBSQRRY/  THATS  THE  END" 

8010  FQRN=1T012 
8015  READA : P0KE36875/  A 
8820  F0R2= 1 TO 1 58 • NEXTZ 
8030  NEXTN 

8040  DATA 135/ 147/ 135/ 175/ 175/ 163/ 183/ 183/ 131/135/ 135/ 135/27 

8100  RESTORE 

8110  F0RN-1T013 

Si 15  READA : P0KE36876/ A 

3120  F0R2® 1 TO 1 50 : NEXT2 

8130  NEXTN 

8135  PR I NT "S" 

8140  P0KE36875/8 
8150  END 


YOU'VE  BROKEN  THE  BANK" = PRINT") 
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9000  P0KE36878, 10 
9091  FORZ=lTOi0 
9302  P0KE36873,74 
9010  FORP!*200TC220+Z#2 
9029  FGKE3S876,M 
9330  NEXTM,Z 

9035  P0KE36876,8 

9036  P0KE36879,72 
9040  RETURN 

9503  REM - 

qsr  i  ca  scm 

9520  REM  M.KENDRLL 
9530  REM 

9540  REM  ( t )  1982 

9550  REM 

9560  REM - 


Dr  Watson  and  Dr  Audio 

This  is  a  pair  of  simple  programs,  in  which  the  VIC  thinks  of  a  number  between  one  and  a  hun¬ 
dred,  and  challenges  you  to  guess  it.  In  'Dr  Watson',  the  feedback  is  words,  and  it  is  pretty  easy 
to  guess  the  number.  'Dr  Audio',  by  contrast,  uses  a  tone  to  let  you  know  how  close  you  are  to 
the  correct  number.  Once  you've  played  about  five  games,  you'll  probably  be  quite  pleased  to 
see  how  good  you  become  at  interpreting  the  sounds. 


Dr  Watson 

5  REM  DR  WATSON 

6  C-1 :  PR  I  NT  "13" 

10  PRINT" I  AM  THINKING  OF  fi  NUMBER  BETWEEN  ONE  AND  100" 

30  fl~INT <RND< 1 )#100)+1 
40  PR I NT "WHAT  IS  IT"; 

45  INPUT  B 
50  OC+1 

55  REM  "WRONG"  IN  RED 

60  IFBOfi  THEN  PR  I  NT  "NO,  !*”;£;  "SIS!*  WRONGS" 

65  IFE~fl  THEN  120 
67  PRINT"GUESS";C;"IS  "; 

70  IFBCfl  THEN  PRINT"ifT00  LOWS": REM  GREEN, BLUE 
80  IFB>fi  THEN  PR  I  NT  "WOO  HIGHS" :  REM  PURPLE,  BLUE 
90  IF  C<18  THEN  45 
100  PR I NT : PR I NT " ■ SEND  OF  THE  GAME!" 

110  PR I NT "W  WAS  THINKING  OF";R:GOTO170 
120  PR I NT "YES,  YOU  ARE  RIGHT!" 

130  PRINT 

140  PR  I  NT  "SI  WAS  STH  INKING"  ,"0F";fi 
150  PRINT 

160  PR I NT " I T  TOOK  YOU " ; C , " GUESSES" 

170  FORJ~1TO2000 :  NEXTJ 
180  RUN 
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Dr  Audio 


5  REM  DR  AUDIO 

6  C~  1 

7  P0KE36878, 7 

10  PRINT" I  AM  THINKING  OF  A  NUMBER  BETWEEN  ONE 
30  A~  I  NT  <  RNB  1 )  f  1 00 >  + 1 
40  PR  I  NT  "WHAT  IS  IT’.; 

45  INPUT  E 
58  C-C+l 

55  REM  "WRONG"  IN  RED 

60  IFBOfl  THEN  PRINT" NO ,  ;  B , " 31 SH*  WRONGS" 

65  IFB-fl  THEN  120 

67  PR I NT " GUESS "JC;" IS  "j 

70  POKE  36875,  ABS<A-B>+12S 

80  FORT’1TO700=NEXTT 

85  POKE  36875,0 

80  IF  COG  THEN  45 

100  PRINT: PRINT"* SEND  OF  THE  GAMES" 

110  PRINT  "Mil  WAS  THINKING  OF";fl:GOTOl70 
120  PRINT"VES,  VOU  ARE  RIGHT!" 

130  PRINT  _ „ 

140  PRINT "31  WAS  STH INKING"  ,"0F";A  A* 

160  PRINT"  IT  TOOK  VOU" ;C,  "GUESSES"  /j/mMA 

170  FORJ*1TO2000:  NEXTJ 


AND  100 


PTTiin 


-  m 

■  ft 

ii® 

rjj.w.J 


Tight  Squeeze 

This  program  is  fun  to  play,  especially  for  younger  chifdren.  The  VIC  selects  two  numbers  be¬ 
tween  one  and  1 3,  tells  you  how  much  money  you  have,  and  asks  you  to  bet  on  the  likelihood  of 
the  third  number  lying  between  the  two  numbers  generated.  If  you  are  correct,  and  the  third 
number  does  lie  between  the  first  two,  you  win  double  the  amount  you  'invested'.  If  you  are 
wrong,  you  lose  the  amount.  So  long  as  you  have  money,  you'll  be  offered  new  rounds  of  the 
game.  You  start  with  $  20,  and  you  can  bet  any  or  all  of  the  money  you  have  in  hand. 

Structure  of  the  program: 

Line  20:  Sets  your  starting  stake  to  $  20. 

Lines  30  to  40:  Generate  the  first  two  numbers. 

Line  50:  Checks  to  see  that  the  two  numbers  are  further  apart  than  one.  If  they  are  not,  the 
VIC  is  sent  back  to  lines  30  to  40  to  try  again. 

Line  60:  Generates  the  third  number,  which  is  not  shown  to  the  player  at  this  stage. 

Line  70:  Checks  that  the  third  number  is  not  equal  to  either  of  the  first  two.  If  it  is,  the  com¬ 
puter  returns  to  line  60  to  get  another  one. 

Lines  80  to  1  37:  Print  out  the  money  the  player  has,  the  two  numbers  the  VIC  has  chosen  and 
asks  the  player  to  enter  her  bet. 

Lines  1  50  to  1  70:  Accept  the  bet  (1  50),  return  for  a  new  bet  if  the  player  tries  to  bet  more 
than  she  has  (1 60)  and  responds  (very  colourfully)  with  COWARD!!  if  the  bet  is  less  than 
one  dollar. 

Line  1 80:  A  delay  loop  before  the  VIC  reveals  its  third  number. 

Lines  1 90  to  260:  Reveals  the  third  number  ( 1 90),  jumps  to  the  end  if  bet  was  less  than  one 

(200), 

jumps  to  the  lose  routine  if  third  number  outside  the  first  two  (210),  congratulates  player  and 
increments  money  (220  to  240),  consoles  player  and  takes  money  away  (lines  250  and 
260). 

Line  270:  Checks  to  see  if  money  is  above  $  1  after  the  last  round,  and  if  it  is  not,  sends  the 
VIC  to  the  bankruptcy  routine  starting  at  3 1 0. 

Line  280:  Delay  loop  to  allow  player  to  absorb  the  result  of  the  round. 

Lines  290  to  300:  This  is  an  attractive  visual  routine  which  you  may  want  to  use  in  other  pro¬ 
grams.  Line  290  PRINTS  a  line,  and  lines  292  and  298  select  a  spot  on  the  screen  and  a 
colour  at  random  and  POKEs  into  the  display  file  at  this  location  with  this  colour.  There  is  a 
very  short  pause  (line  299),  and  loop  is  run  again.  The  PRINT  in  line  290  means  the  screen 
scrolls  up  as  the  coloured  blips  appear. 

Lines  305:  Starts  another  round  of  the  game. 

Lines  31 0:  to  330:  This  is  the  end  of  game  routine  which  prints  THE  GAME  IS  OVER!!  then  an 
endless  series  of  YOU  ARE  BROKE  messages. 


Suggestions  for  improvement: 

•  Use  as  GETA$  routine  in  place  of  line  1  50,  with  a  counter  to  force  the  player  to  decide  quick¬ 
ly,  with  a  momentary  penalty  if  the  decision  is  not  made  in  time. 

•  Add  a  fanfare  for  a  win,  and  a  raspberry  noise  for  a  loss,  with  a  super  raspberry  for  bank¬ 
ruptcy. 


64 


•  Add  some  'chirping  birds'  (see  the  VIC  manual)  during  the  colourful  interlude  between  rounds 
of  the  game. 

•  Make  the  amount  of  the  win  and  loss  change  randomly  from  round  to  round,  telling  the  player 
before  she  makes  her  bet  how  much  a  win  and  a  loss  is  worth. 


10  REM  TIGHT  SQUEEZE 
20  B-20 

25  PR I NT "3": REM  CLEAR  SCREEN 
30  A~  I  NT  <  PND  <  0*1 3  >  +  i 
46  3- 1  NT  <  P.ND  <  1  >  ♦  1 3  >  + 1 
58  IF  ABS<B-flX2  THEN  30 
60  C-INT(RNDa>:f:l3>+i 
70  IFfl-C  -OR  P~C  THEN  60 
80  F'RINTMfV  FIRST  NUMBER  ISM  A 
90  PRINTS  MV  SECOND  ISMB 
100  PRINT 

120  PRINT'ifr’OU  HAVE 
125  PPINT 

130  PR I NT "HOW  MUCH  DO  VOU  BET" 

135  PR I NT "MV  NEXT  NUMBER  LIES" 

1 37  PF:  I  NT "  BETWEEN  ” ;  A "  AND "  j  B ; 

158  INPUT  E 

160  IFE>D  THEN  150 

170  IFE<1  THEN  Ff!INT"!CWj«4ifi3WS!  ! " 

180  FORZ” 1T0999 : NEXTZ 
190  FR I NT" 31V  NUMBER  IS"JC 
200  IF  E<1  THEN  280 

210  IF  NOT  <OA  AND  C<B  OR  C<fl  AND  OB)  THEN  250 
220  PR I NT "WELL  DONE" 

225  PRINT"kVOU  WIN  *";2*E 
230  D~D+2*E 
240  GOTO  280 

258  PRINT"«SBORRVi  VOU  LOSE  $";E;"S" 

260  D-D-E 

270  IF  D<1  THEN  310 
280  FORZ= 1 TO2000 : NEXTZ 
290  F0RZ=1T024: PRINT 
292  L"INT<RND<1)#500)+1 
294  C~INT<RND(1>#3)+1 
296  POKE  7680  +  L, 160 

298  POKE  38400+L.C 

299  FORN-1TO50 : NEXTX 

300  NEXTZ 
305  G0T025 

310  PR I NT "THE  GAME  IS  MOVER! !B" 

320  PRINT"»OU  ARE  BROKE  "; 

325  F0R2= 1 T 0999 : NEXTZ 
330  GOTO320 
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Time  Guardian 

In  this  challenging  game  written  by  Adam  Burbidge  of  Crawley  you  have  to  recover  the  six 
parts  of  the  key  of  time.  The  ship  starts  with  700  energy  points,  and  you  lose  five  points  for 
each  move. 

When  you  first  run  it,  you'll  see  the  message  I  AM  CREATING  A  GALAXY  while  the  VIC  sets 
up  the  universe  for  your  game.  After  a  brief  delay,  the  screen  will  clear,  and  it  is  Decision  Time. 
Every  so  often  the  VIC  will  ask  you  to  set  co-ordinates,  and  then  it  will  print: 

QUADRANT?  You  enter  a  number  from  0  to  6 
SECTOR?  You  enter  another  number  from  Oto  6 

This  is  repeated.  Then  it  will  print: 

TIME?  You  enter  either  0  or  1 

If  you  land  on  a  hostile  planet,  the  VIC  will  print  SHIP  UNDER  ATTACK,  then  SHIP  ENER¬ 
GY  .  .  .  and  a  number.  You  need  to  press  any  key  (which  you  may  have  to  do  several  times 
rapidly)  to  escape  from  the  hostile  planet. 

From  time  to  time  you'll  find  part  of  the  'key  of  Chronos',  the  point  of  the  whole  game.  You 
must  find  all  six  parts  of  it  to  win,  and  you  must  find  them  before  your  ship's  energy  is  ex¬ 
hausted. 

3  REM  TIME  GUARDIAN 

4  REM  BV  ADAM  BURBIDGE 

5  DIMKX<4> , Z$<1 > , 6; 6, 1 ) 

6  K:'.<3)=700:F=75 
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10  PR I NT "3": REM  CLEAR  SCREEN 
20  PRINT" MI  AM  CREATING  A  GALAXY" 
38  B»INT<RND<1>#6> 

40  C=INT<RND<1)#6) 

50  D»INT<RND<1>*6> 

60  E»INT<RND<1>#2> 

70  A2CB,C,D,E>*2 
75  F-F-l : IFF<0  THEN  85 
80  GOTO30 

85  PR I NT "3": REM  CLEAR  SCREEN 
90  GN-INT <RND< 1 )*2>+l 
100  PRINT" SBfi'OU  START  AT  GLODNOB" 
105  PRINT 

110  PR  I  NT  "QUADRANT  5" 

115  PRINT 
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120  PRINT"iSECTOR  3,4” 

125  PRINT 

139  print" iissrr i me  11  gn#  1000" earth  years" 

135  PRINT 

140  PRINT"aSET  CO-ORDINATES" 

150  I NPUT " QUADRANT " ; G 

160  INPUT"SECTOR";H 
165  PRINT"!*" 

170  I NPUT "SECTOR"; I 
180  INPUT"TIME";J 
1 85  KJ{  C  3 )  *K Y*  (  3 )  —5 

190  IFA5i<G,H,  I,  J)=l  THEN  PRINT" SBVOU  ARE  ON  GLODNOB"  :GOTO90 
200  IFAX<G,H,  I,J»1  THEN  300 
210  PRINT"kDEEP  SPACE" ’GOTO 140 
300  PRINT"iYQU  ARE  ON  A  PLANET" 

310  PRINT" SBQUADRAWT"G 

320  PRINT"iSECTOR"H,I 

330  PRINT"SnME"  J#INT <RND<  1  )#7) 

340  KJi<l)*INT  <RND<1)#20)+1 

350  IFKZ<1»5  THEN  370 

360  PRINT"  SUN!  I NWASB I  WED " :  GOTO  1 40 

370  IFKX<1»10  THEN  400 

380  PRINT" !*9I NHAB I TANTS  HOSTILE" :GOTO500 

400  PRINT" SEFRRT  OF  THE  KEY  OF","!*  CHRONOS  " 

410  KX<2>=KZ<2>+1 

420  PRINT" VOU  NOW  HA VE"K?i<2) "PARTS",  "OF  THE  SHKEY" 

430  IFKX<2>=6  THEN  PRINT"!Wr’OU  HAVE  WON!": END 
440  GOTO 140 
500  GET  Z$<1> 

510  IF  Z$a>*""THEN540 
520  GOTO 140 

540  PRINT"»SSHIP  UNDER  !*ATTACK!" 

550  KX<3)=KX<3>-INT <RND<  1  )#50)+l 

560  PRINT"aSHIP  ENERGY :"KZ3 

565  IFKJi<3Xl  THEN  PRINT"  SiSHIP  DESTROYED"  :END 

570  FORT* 1TO200: NEXT 

580  GOTO500 


Long  John  Silver 

This  is  a  very  simple  program  which  you  can  use  as  the  core  of  any  program  when  you  want  to 
hide  something  on  a  grid.  In  this  case  the  grid  is  10  x  10,  and  after  each  guess  you  are  given 
feedback  as  to  where  the  gold  is  hidden. 


Structure  of  the  program: 

Lines  1 0  and  20:  'Hide'  the  gold. 

Line  30:  Loop  to  count  guesses 

Line  60:  Accepts  player  guess,  strips  it  to  two  numbers  to  'process'  it. 
Lines  1 30  to  1 90:  Feedback  on  the  accuracy  of  the  guess. 

Lines  2 1 0  to  220:  End  of  game  if  not  guessed. 

Lines  230  to  260:  End  if  the  treasure  is  found. 
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Suggestions  for  improvement: 

•  Change  the  size  and  shape  (triangular?)  of  the  grid. 

•  Add  some  ambiguity  to  the  feedback. 

•  Use  sound  for  the  feedback  (high  notes  for  close,  low  notes  for  far  away). 

•  Add  a  sound  routine  to  the  win  routine. 


7  POKE  36879>  15 

8  PR  I  NT '73" 

10  A-INT <RND< 1 >#10)+1 
20  B=INT<RND<D#10>+1 
30  FOR2“1TO10 
35  PRINT"K": PRINT 
40  PRINT"V0U  HAVE  ONLY" 

45  PRINT10-Z;  "^SECONDS  LEFT ! 

50  PRINT"WHERE  IS  THE  GOLD".: 

60  INPUTM : i>IMW10> : D=M~C*10 
70  IFA~C  AND  E=D  THEN  230 
130  PRINT: PRINT" IT  IS  NOT  AT";C;D 
135  PRINT 

140  PR I NT "HERE  IS  A  CLUE:-" 

150  PRINT"URY  TO  THE  "j 
160  IF  A>C  THEN  PRINT"SSOUTH!ir  J 
170  IF  ACC  THEN  PR  I  NT  "WORTHS"; 
180  IF  BCD  THEN  PRINT  "WESTS" 

190  IF  B>D  THEN  PRINT" CASTS" 

200  NEXTZ 

210  PRINT  •  PR  I  NT"  HIT  I  ME  IS  UP" 
215JPRINT"STHE  GOLD  WAS  AT";A;B 
220  END 

230  PRINT"WICSLSL  SDSDWJE  Si  !  " 
240  S*  RND<1 >#10000 
245  PR I NT "S" 

250  PRINT" VOU  FOUND  £"; INTCS/Z); 
255  FORT  = 1 T0555 : NEXTT 
260  GOTO  250 
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Robot  IMim 

The  VIC  prints  a  number  of  odd  triangle  shapes,  tells  you  how  many  you  can  take,  then  takes 
a  few  of  the  shapes  itself.  This  fascinating  process  continues  until  there  is  only  one  left.  At  this 
point  the  player  who  must  take  the  last  one  loses. 


Structure  of  the  program: 

Line  20:  Determines  the  number  of  objects. 

Line  50:  Determines  the  maximum  number  to  be  taken. 

Lines  1 00  to  1 30:  Print  out  the  correct  number  of  triangles,  starting  new  lines  at  random  (see 
line  1  20). 

Lines  2 1 0  to  2 1  5:  Determine  how  many  the  'robot'  will  take.  The  random  bit  at  the  end  of  line 
210  ensures  that  the  robot  makes  mistakes  from  time  to  time.  Line  215  ensures  that  the 
mistake  is  not  so  large  that  the  robot  breaks  the  rules. 

Lines  280  to  290:  Place  a  coloured  border  between  rounds  of  the  game.  Design  this  to  suit 
yourself. 

10  REM  ROBOT  HIM 

20  M»0 : E=0 : Z=16+INT <RND< 1 >#S> 

30  PR  I  NT  "T  :REM  CLEAR  SCREEN 
40  IF2#INT<ZK2>=Z  THENZ=Z+1 
50  H-3+INT<RND<l>#2> 

60  PRINT"»1fif<:iMUM  TO  TAKE"H 
70  GOSUB280 

80  IF  E>0  THEN  PRINT'WOU  T00K"E,  "^ROBOT  T00K"Q 
90  PR  I  NT  "Si" 

100  PRINT"!" :F0RK=1TGZ 
110  PRINTKj’T"; 

120  IF  RND<1»0.6  THEN  PRINT 
130  NEXTK 
140  GOSUB280 

145  PRINT"!H0W  MANY  WILL'S" YOU  TAKE"; 

150  INPUTE 

160  IF  E>H  THEN  150 

170  Z=Z-E 

180  GOSUB280 

190  IF  Z<1  THEN  PRINT  "Sfr’OU  TOOK  THE  LAST  ONE’S  "IS3  SO  ROBOT  WINS!!  "  :  END 
210  Q=Z-1-INT(<Z-1>/<H+1>)#<H+1)-INT<RNBC1)*2)+INT(RND<1)#2) 

215  IF  GKl  OR  Q>H  THEN  210 
220  GOSUB280 
230  Z=Z-Q 

240  IFZ=0  THEN  PRINT"kR0B0T  TOOKTQ, ,  /'ISO  YOU  iHflUIN!  !  ”  -END 
270  GOTO60 
280  PRINT 

285  PRINT"rS##k###!Wt#i###n«#i»##«Nfg»##»if#" 

290  RETURN 
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Night  on  a  Wild  Mountain 

This  program  is  perhaps  best  saved  for  those  people  who  say:  "It's  very  nice  having  a  per¬ 
sonal  computer,  but  what  can  you  do  with  it?"  Once  having  seen  (and  heard)  this  program,  they 
may  well  be  convinced  that  perhaps  they  should  not  have  asked.  The  music  is  wild  and  random, 
as  befits  the  title,  although  the  graphics  have  symmetry  and  order.  Enter  this  program  just  as  it 
is  listed  here,  then  try  and  work  on  it  to  bring  some  order  into  the  music. 


5  PR I NT "IT 

IQ  REM  NIGHT  ON  fi  WILD  MOUNTAIN 
12  REM  < RANDOM  MUSIC* PATTERNS) 

15  M=INT(RND<1)#S) 

20  A=INT<RNDa)*18> 

30  B*INT<RND<1>*18> 

40  C=791i 
50  0=38631 

60  POKEC+A*  102 POKED+A* M 
70  POKEC-A* 102 : POKED-A* M 
80  P0KEC+1 1#A+B* 102 : P0KED+1 1*A+B,M 
90  POKEC- 1 1 #A-B  *  102 : POKED- 1 1 *A-B  *  M 
97  IF  RND<1»0.3  THEN  120 

100  P0KE36879*  16#aNT<RNDa>#16)>+INT<RNDa>#8>+8 

120  P0KE36878* INT<RND<1)#15)+1 

130  P0KE36874* INT<RND<1>#128)+128 

140  P0KE36875, INT<RND<1>*128>+128 

150  P0KE36876* INT<RND<1>#128>+128 

180  P0KE36877* INT<RND<1>#128>+128 

195  IFRND<1)>. 1  THEN205 

200  POKE36878*0 

205  IFRND<1».3  THEN215 

210  POKE36874*0 

215  IFRND<1)>.3  THEN230 

220  POKE36875*0 

230  F0RT= 1 TORND < 1 ) #20  +5 : NEXT 

235  IFRND<1».3  THEN250 

240  POKE36877*0 

250  POKE36876*0 

500  GOTO10 


Victim 

This  game  is  simplicity  itself.  You  choose  your  'victim',  a  number  from  one  to  six,  and  then  sit 
back  and  watch  the  Victim  race  get  underway. 

Lines  1  5  and  55  are  interesting.  They  allow  the  VIC  to  assign  a  different  colour  to  each  num¬ 
ber,  but  the  same  colour  to  each  number  when  it  is  printed.  You'll  see  what  I  mean  when  you  run 
it.  The  sound  routine,  starting  at  line  1 0(2)0,  may  well  benefit  from  your  programming  skills. 
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5  P0KE36879,8 
18  REM  VICTIM 

12  PRINT"3": PRINT -PRINT: PRINT: PRINT: PRINT: PRINT 
15 

20  PRINT  "  NAME  VOUR  VICTIM" <1  TO  6) " j 
30  INPUTW 

35  I  FW<  1 0RW>6THEN30 
40  F0RJ»1T06 ; B< J)*0 •' NEXT 
50  PR I NT "H" :REM  CLEAR  SCREEN 
52  PR I NT" S” : REM  HOME 

54  FORM* 1T06 

55  C*»MID*<Af,M,l) 

60  PRINT  TAB<B<M>>;C$  ;M 
65  GOSUB1000 
70  PRINT 

80  B<M>=B<M>+INKRNIHl>+.5> 

90  IFB<M»1STH£N120 
100  NEXT 
110  60T052 
120  F0R2*MT08 
130  PRINT 
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140  NEXT 

150  PRINT"  SIS  END  OF  RACE 
160  PRINT 

170  PRINT"  ISSTHE  WINNER  IS"M 

180  I FW=MTHENPR I NT " iifiND  VOU  BACKED  IT! !": PRINT" WELL  DONE" 

185  PRINT 

190  I F  WOMTHENPR I  NT "  i  BUT  VOU  BACKED"W:PRINT:  PRINT""  BAD  LUCK" 

200  PRINT 

210  FORJ*1TO800=NEXT 

220  PRINT"  PRESS  ANV  KEV  TO" 

230  PRINT"!*  START" 

240  PR I NT "3  A  NEW  RACE" 

250  GEm 

260  IFV$=""THEN250 
270  RUN 

1000  P0KE36878.15 

1010  F0RQ=1T0  flCPD 

1020  P0KE36876, 180+INT(RND( 1 >#60> 

1030  NEXTQ 
1040  POKE36878.0 
1070  RETURN 


Evolution 

In  1 970,  John  Conway,  who  was  then  attending  Cambridge  University,  invented  the  game  of 
LIFE,  which  rapidly  became  a  computer  'hit'  after  it  was  described  in  the  October  1 970  issue  of 
Scientific  American. 

LIFE,  which  simulates  the  birth,  growth  and  death  of  a  cell  colony,  produces  rather  splendid 
visual  effects. 

Mr.  Conway's  rules  are  simple,  but  produce  unpredictably  interesting  results.  The  cells  in  LIFE 
are  born,  live  or  die  in  accord  with  the  dictates  laid  down  by  the  God  Conway.  According  to  his 
writ,  each  cell  has  eight  neighbours;  every  cell  with  two  or  three  neighbours  survives  to  the  next 
generation;  if  there  are  three,  and  only  three,  neighbouring  cells,  a  new  cell  is  born;  and  any  cell 
with  four  or  more  neighbours  dies  from  overpopulation. 

EVOLUTION  is  a  version  of  LIFE  written  especially  for  the  VIC.  Setting  up  a  black  screen  with 
a  red  border,  the  program  puts  cells  on  a  14  x  14  grid  in  accordance  with  the  Conway  rules. 
The  game  as  listed  is  silent,  but  if  you'd  like  to  add  a  little  sound  —  which  tells  you  how  things 
are  going  in  the  program— add  the  following  lines: 

6  POKE  36878,7 
225  POKE  36876,240:POKE  36876,0 
1075  POKE  36876, 235:POKE  36876,0 
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Structure  of  the  program: 

Line  1 0:  Dimensions  the  arrays  to  hold  the  cells  as  they  evolve. 

Lines  20  to  80:  Generate  the  first  'evolution'  of  the  colony,  creating  a  cell  in  line  1  5  if  the  ran¬ 
dom  number  generated  is  greater  than  0.5.  The  elements  of  the  two  arrays  are  set  equal  to 
each  other  in  line  60. 

Line  90:  Sends  the  action  to  the  subroutine  which  prints  out  the  evolving  colony. 

Line  95:  Increments  the  evolutionary  count. 

Lines  1 00  to  200:  Count  the  number  of  occupied  cells  around  each  cell  in  the  colony. 

Lines  210  and  220:  Alter  the  element  in  the  B  array  in  accordance  with  the  findings  of  lines 
100  to 

200.  Note  that  the  A  array  is  unchanged  at  this  time,  so  a  change  due  for  the  next  evolution 
will  not  interfere  with  the  current  evolution  being  studied. 

Line  250:  Do  it  again,  VIC 

Line  1 000  to  1 090:  This  routine  prints  out  the  colony,  updating  the  A  array  as  it  does  so. 

Suggestions  for  improvements: 

•  Change  the  size  of  the  grid. 

•  Ensure  that  each  cell  is  printed  in  a  randomly  chosen  colour. 

•  Have  each  element  of  the  colony  give  up  a  little  bleep  or  blurp,  depending  on  whether  the  ele¬ 
ment  is  occupied  by  a  cell  or  not. 

•  Add  a  routine  to  take  the  place  of  lines  20  to  80  to  allow  you  to  enter  your  own  starting  col¬ 
ony. 

•  Add  a  routine  (as  part  of  the  PRINT  subroutine)  to  count  the  number  of  occupied  cells,  which 
will  automatically  RUN  the  program  from  the  beginning  if  the  number  drops  below,  say,  five. 
This  rerun  could  select  a  new  border  and/or  screen  colour. 

5  REM  EVOLUTION 

7  PRINT'-T  :REM  CLEAR  SCREEN 

8  PRINT"  SS" 

9  POKE  36879, 10: REM  RED  BORDER,  BLACK  SCREEN 

10  DIMAC14, 14), E< 14,14) 

20  F0RO2  TO  13 
30  FORV'2  TO  13 
50  IF  RNIK1»0.5  THEN  A<X,V>-1 
60  B<X,Y>=fKX,Y> 

70  NEXTY 
80  NEXTX 
90  GOSUE1000 
95  G=G+1 
100  F0RN"2T013 
110  F0RY”2TG13 
120  C-0 

130  IF  RC-:~1,Y-1>-1  THEN  OC+1 
140  IF  A<X-1 , V)~l  THEN  C-C+l 
150  IFfl<X-l,V+l)=l  THEN  C=C+1 
160  IFfl<X,Y-l)“l  THEN  C’C+l 
170  IFfKX,Y+l)*l  THEN  OC+1 
180  IFAO:+l,V-D=l  THEN  C=C+1 
190  IFR<X+1,Y>“1  THEN  OC+1 
200  IFfl«+l,Y+l)=l  THEN  C=C+1 
210  IFR<X/Y>=1  AND  C02  AND  COS  THEN  E<X,V>-0 
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WHT  \/  RED  \/  CYN  \/  PUR  \/  GRN  \/  BLU\  /  YEL 


220  IF  fl<X,Y>*0  AND  C=3  THEN  B<X,Y>^1 
230  NEXTY 
240  next:-: 

250  GOTO90 

999  END 

1000  PR I NT "S”  ; REM  HOME 

1003  PRINT: PRINT"  DEVOLUTION  »";G;  "B"  :REM  WHITE,  VELLOW 

1005  PRINT 

1010  F0RX~1T014 

1020  F0RV-1T014 

1030  fl<X, Y)=B<X, Y) 

1040  IFfl<X, Y>=1  THEN  PRINT"#"; 

1050  IFfl<X, V)~0  THEN  PRINT" 

1060  NEXTY 
1070  PRINT 
1080  NEXTX 
1090  RETURN 

Vic-et-un 

In  this  program  you  and  the  VIC  (with  thunderstorms,  lightning  bolts  and  other  distractions) 
take  it  in  turns  to  roll  a  dice  trying  to  get  a  total  as  close  as  possible  to— or  equal  to— 21 ,  without 
going  over  21 .  This  game  is  a  dice  version  of  Blackjack. 

It  is  very  simple  to  play.  After  pressing  RUN,  you'll  be  told  to  touch  the  “Z"  key  to  roll  the 
dice,  the  "M”  key  to  stand,  that  is,  to  stay  with  the  total  you  now  have.  Your  total  will  appear, 
and  the  choice  to  roll  or  stand  again.  Once  you've  decided  to  stand,  the  VIC  will  start  to  roll,  and 
will— in  two  games  out  of  three,  on  average— beat  you. 

Structure  of  the  program: 

Line  1 0:  Sets  the  counter  for  the  human  (H)  and  computer  (C)  scores. 

Line  20:  Sends  action  to  the  wild  and  crazy  subroutine  which  selects  colours  and  sounds  ran¬ 
domly. 

Lines  30  to  80:  Accepts  and  acts  on  the  player's  decisions. 

Lines  90  to  1  30:  Computer  decides  whether  to  add  to  its  total  or  stand. 

Lines  1 40to  250:  Decides  who  has  won,  creates  some  more  mayhem,  starts  a  new  game. 

Line  260:  Delay  loop,  called  various  times  during  the  program. 

Line  990:  Assigns  A$ . 

Lines  from  1 000:  Selects  an  element  from  A$  to  change  the  colour,  then  does  some  quite  ex¬ 
citing  things  with  the  colour  and  sound. 

5  REM  VIC-ET-UN 
7  PR  I  NT  "T  ■'REM  CLEAR  SCREEN 
10  H=0 : C=0 
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20  GOSUB990 

30  PRINTB*; "  ENTER  2  TO  ROLL" : GOSUB 1000 : PRINTS*; "  M  TO  STAND" 

35  GETM*: IFM*«" "THEN35 

40  IFM$*"M,,THEN90 

50  H=H+INT <RND< 1 )#6)+l 

60  GOSUB260 : GOSUB1000 

70  PRINT :PRINTB$;"  VOUR  TOTAL  IS"H 

75  GOSUB260 : GOSUB260 : PRINT 

80  GOTO30 

90  IFC>H  AND  C<22  OR  021  OR  H>21  0RH=21  ANDC=21THEN  140 
100  OC+INT <RND<  1  )#6)+l 
110  GOSUB260 
115  PRINT: PRINT 

120  GOSUB 1 000 :  PR  I  NTB* ; "  MY  TOTAL  IS"C 

130  GOTO90 

140  GOSUB  1000: PRINTED.: 

150  GOSUB2S0 :  GOSUB1000 :  G0SUB26G 
170  I  FH“CGR  <  H>2 1 AND02 1  )THEN240 
175  PRINT' PRINT: PRINTED; 

180  IF<OH  0RH>21)ANDC<22  THENPRINT,  "I"; 

190  IF<C<H0RO2DANDH<22THENPRINT ,  “YOU"; 

200  GOSUB  1000- PRINTED"  WIN!!" 

210  GOSUB260 
220  GOSUB 1000 

225  FOR  J= 1 T07 : GOSUB260 : NEXT 

226  GOSUB 1000 
230  PR I NT "3": RUN 

240  GOSUB 1 000 : PR I NTB* ; " DEAD  HEAT ,  BUDDY ! " 

250  G0T0225 

268  FORE® 1TO5G0: NEXT 

270  RETURN 

990  A*="nai8*»» 

1000  B*=MID*<A*,  <INT<RND<D*7>+D,  D 
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1010  FORJ-*1TOINT<RND<1>#10>+1 
1020  P0KE3S378, INT<RHB<l>*10>+6 
1030  FORK=ltOINT<RND< 1 )#7>+2 
1040  P0KE36876, K+180-INT<RND<  0*30) 

1050  NEXTK.J 

1070  P0KE36879, INT<RND< 1 >#3>+28 : P0KE36879, 8 
1075  P0KE36879,  INT<RND<l>#3)+28 
1080  P0KE36879  >  I  NT  <  RND  < 1 ) #3 ) +28 
1090  POKE36878.0 
1100  RETURN 

Hangman 

This  game  needs  two  players,  one  to  enter  a  word  of  her  choice  and  the  other  player  to  at¬ 
tempt  to  guess  the  word.  The  VIC  draws  a  dash  for  each  letter,  and  then  changes  this  into  any 
letter  which  has  been  guessed  correctly. 

Structure  of  the  program: 

Line  50:  Sets  up  arrays  if  needed. 

Lines  1 00  to  1  30:  Accepts  the  secret  word,  a  letter  at  a  time. 

Line  1  35:  Counts  for  the  1 0  guesses. 

Lines  1 45  to  1 70:  Select  colours  at  random  using  the  subroutine  from  901 0,  prints  the  letter  if 
it  has  been  guessed,  if  not  prints  a  dash. 

Lines  2 1 0  to  260:  Accepts  a  guess  and  compares  it,  letter  for  letter  with  the  secret  word. 

Line  270:  Sends  control  to  winning  message  if  word  is  guessed. 

Line  300  to  330,  then  from  1045:  Losing  message,  reveals  word. 

Lines  1 055  to  1 1 00:  Offer  new  game.  If  not  accepted  rePRINTs  OK,  THANKS  FOR  PLAYING 
in  different  colours,  over  and  over  again. 

Routine  from  5000:  Adds  some  sound  to  brighten  things  up. 

Routine  from  9000:  Assigns  the  colour  controls  to  string  A$,  and  then  when  subsequently 
called  (as  GOSUB  901 0)  changes  the  next  thing  to  be  printed  to  a  random  colour.  This 
subroutine  also  calls  the  sound  subroutine,  then  flashes  (line  9025)  giving  the  border  a 
random  colour. 

Suggestions  for  improvement: 

•  Get  the  program  to  draw  a  hanged  man,  part  by  part,  as  the  number  of  guesses  is  used  up. 

•  Store  a  number  of  words  in  a  DATA  statement,  so  the  VIC  can  choose  its  own  words. 

•  Note  that  the  random  colour  choice,  the  sound  routine  from  5000  and  the  random  border 
flash  are  all  effective  aids  to  add  to  your  own  programs  to  brighten  them  up. 


10  REM  HANGMAN 
20  PR I NT "  3"  : GOSUB9000 
30  INPUT "HOW  MANY  LETTERS' ";N 
50  IFNM0  THEN  DIM  8<N),D<N> 
100  F0RA=1T0N : INPUTC# 

120 

130  NEXT 
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135  FORJ=1TO10:  PRINT 'T3': 

140  PRINT: PRINT: PRINT 

145  FORE* 1 TON 

150  6OSUB9010:PRINTB$; 

155  IFB<E)=D<E)  THEN  PRINT1’-".; 

160  IFB<E)OD<E>THEN  PRINT  CHR$<B<E>>; 

170  NEXTE 
180  PRINT: PRINT 
190  H=0 

200  GOSUB9010: PRINTED;  "ENTER  GUESS  NO."J 
210  INPUTC* 

220  F=RSC<C$) 

230  FORG=lTON 

240  IFD<G)=F  THEN  D<G>=0 

250  IFD<G)=0THEN  H=H+1 

260  NEXTG 

270  IFH-NTHEN  1000 

280  NEXTJ 

290  PRINT 

300  GOSUB9010:PRINT"SORRY,  TIME  IS  UP" 

310  PRINT 

320  GOSUB90 1 0 : PR I NTB$ ; "  THE  WORD -WAS 
330  GOTO 1045 
1000  REM  WIN 
1010  PRINT 

1020  GOSUB9010: PRINTB$;  "YOU  GOT  IT  IN"J 
1040  PRINT 

1045  FORQ* 1 TON : PR I NTCHR$  <  B  <  Q  )  ) ;  :NEXT 
1050  PRINT 

1055  GOSUB9018 : PRINTB$; "  1SANOTHER  GAME"; 
1060  INPUTC* 

1070  IFfiSC<C$)«ASC<"Y">THEN  RUN 

1080  GOSUB9010 : PRINTED; ” SDK,  THANKS  FOR” 

1090  GOSUB9010 : PRINTB$, ”  SPLAYING ! ” 

1095  FORT  = 1 TO300 : NEXT 
1097  PRINT 
1100  GOTO 1080 
5000  REM  SOUND 

5010  P0KE36878 , 1 NT < RND <l)#8>+8 
5020  F  ORT  *  1  TO  1 00STEP  (.  I NT < RND <  1  >#8>+l  > 

5030  P0KE36876, 240-T 
5040  P0KE36877,T 
5060  NEXT 
5070  POKE36876,0 
5080  P0KE36877 , 0 
5090  RETURN 
8990  END 

9000  A*»"lftk»Bir 

9010  B*=M I D$  < fi$ , <1 NT  <  RND (1 ) *7  > + 1 > , 1 ) 

9029  GOSUB5008 

9025  P0KE36879 , 1  NT  <  RND  <  1 )  *6  +26 

9030  RETURN 
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Codebreaker 

The  game  Mastermind  is  copyright  Invicta,  who  sell  a  number  of  versions  of  the  game  which 
use  coloured  pegs.  Invicta  bought  the  rights  to  the  game  from  an  amateur  mathematician, 
Mordechai  Meirovich,  in  1971,  and  a  couple  of  years  after  they  first  marketed  it,  had  a  world¬ 
wide  best  selling  game. 

The  game  has  been  known  in  England  for  centuries  as  Bulls  and  Cows.  Another  popular  ver¬ 
sion  is  called  Codebreaker. 

The  principle  is  simple.  The  VIC20  picks  a  three-digit  code  (such  as  259),  using  the  number  1 
to  9.  Zero  is  not  used,  and  no  digit  is  used  more  than  once  in  the  code  (so  117,  494  or  666  are 
impossible).  You  have  to  guess  the  number  in  1 0  guesses  or  less.  The  feedback  from  your  VIC  is 
fairly  easy  to  interpret.  After  each  guess  you  are  told  YOU  SCORED  2  BLACKS  and  0  WHITES, 
in  which  a  'black'  is  a  correct  digit  in  the  correct  place  in  the  three-digit  code,  and  a  white  is  a 
digit  which  does  appear  in  the  code,  but  not  where  you  put  it  in  your  guess.  The  computer  prints 
out  the  answer  if  you  fail  to  get  it  within  1 0  guesses. 

Structure  of  the  program: 

Lines  30  to  50:  Generate  three  random  numbers  between  one  and  nine. 

Line  60:  Checks  to  ensure  all  numbers  are  different.  If  they  are  not,  sends  VIC  back  to  the 
routine  30  to  50  again  to  create  three  more. 

Line  70:  *  Turns  the  three  separate  digits  into  one  three-digit  number. 

Lines  80  and  330:  Control  the  'guess  loop'. 

Line  90:  Prints  number  of  the  guess. 

Line  95:  Accepts  the  player's  guess. 

Lines  1 00  to  1 20:  Splits  the  player's  guess  into  three  separate  digits  so  they  can  be  compared, 
item  by  item,  with  the  computer's  numbers. 

Line  1 30:  Compares  the  two  three-digit  numbers.  If  they  are  the  same  (i.e.  if  D  equals  X)  then 
the  VIC  goes  to  the  win  routine  starting  at  line  360. 

Line  1  50:  Sets  the  counters  for  black  (N)  and  white  (W)  to  zero. 

Lines  1 70  to  2 1 0:  Looks  for  blacks.  If  it  finds  one  (that  is,  if  it  finds  a  correct  digit  in  a  correct 
position)  it  increments  N  by  one  (lines  1 90)  and  changes  that  element  of  the  original  num¬ 
ber  (A(1 ),  A(2)  or  A(3))  to  a  zero,  so  it  will  not  be  rechecked  in  the  'white  routine'. 

Lines  220  to  280:  Check  for  'whites',  incrementing  W  by  one  each  time  one  is  found. 

Line  290:  Reconstructs  the  computer's  number  from  D,  restoring  elements  turned  to  zero  in 
line  200. 

Lines  320to  325:  Print  out  the  player's  score. 

Lines  340  to  350:  This  is  only  used  if  the  player  is  unable  to  guess  the  code  in  1 0  guesses. 

Lines  360  to  380:  This  is  the  win  routine. 

Suggestions  for  improvement: 

•  Reduce  the  number  of  guesses  once  you've  mastered  the  game  (six  is  a  good  number). 

•  Change  the  game  so  it  selects  colours,  using  a  numerical  code  to  (a)  print  blobs  of  colour,  and 
(b)  to  accept  player  input. 

•  Add  sound  so  a  particular  effect  comes  each  time  the  player  gets  a  black,  with  another  effect 
for  a  white. 

•  Add  a  wild,  flashing,  noisy  end  if  the  player  guesses  the  code  correctly. 
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10  PR  I  NT  "T 
30  F0RZ-1T03 
40  ft  ■:  Z > - 1  NT  <  RNB  <  1 )  #3 ) + 1 
30  NEXTZ 

6G  IFFK 1  )"fi(2'‘0R  fta>=fl<3>0R  R<2>=fi<3>  THEN30 
70  D~  1 00'4£R  <  0  +  1 9f  R  <  2 )  +fl  ( 3  'j 
3G  FORC-1TG10 
36  PRINT” GUESS  :|;CJ 
35  INPUTK 

100  E<  0=1  NT  (M/ 180) 

110  E<2>“INT< <X-100#B< 1 ) >/10> 

1 20  B  <  3 ) *X- 1 00#B  <  O - 1 0#B  <  2 ) 

130  IFB=M  THEH360 

150  H~0 : W~G 

178  FOR  E-l  TO  3 

1SG  IFfi<EX>B<E)  THEN  210 

130  N~N+i 

200  fl<E)-0 

218  ne::te 

220  F0RF-1T02 

238  IFA<FX6  THEN  280 

240  FOR  E-l  TO  3 

258  IFB<FX>fi<E>  THEN  270 

268  M=W+1 

270  NEXTE 

280  NEXTF 

290  fl(l)“INT(B/100) 

300  fi<2>=INT<<D-100#R<l>>/10> 

310  fi  <  3  > "B- 1 00*fi  <0-1 0*fl  <  2  ) 

320  PRINT"WOU  SSCORED" 

325  PR  I  NT "  ■ " N ; "  BLACKS  &G" M !  WH I TESS” 

330  NEXTG 

340  PR  I  NT"  an  V  NUMBER  WRS",R<0.;fl<2>;R<3> 

350  END 

360  PR  I  NT  "  tCOHGRRTULRT  I ONS 11 
370  PRINT'^OU  GOT  IT  IN"JC 
380  ENB 

Symphony  for  a  Melancholy 
Computer 

This  piece  reflects  an  effort  to  write  a  program  which  would  'write  music'  that  had  some  un¬ 
derlying  form.  The  title  is  obvious  and  appropriate,  once  you've  heard  the  comuter's  output 
from  this  program. 

The  main  structure  of  the  music  comes  from  the  variables  A,  B,  C,  D,  E  and  F  which  are  de¬ 
fined  on  each  run.  The  program  is  designed  so  that  the  chords  change  with  reference  to  a 
measure  (E)  and  so  that  the  changes  overlap  each  other,  thus  getting  rid  of  harsh  stops  and 
starts. 
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10  REM  SVMPHONV  FOR 

15  REM  R  MELRNCHOLV 

16  REM  COMPUTER 
18  GOSUB10O0 

20  R*128+INT<RNB<1>#128> 

30  B=128+INT<RND<1>#128> 

40  C=128+INT<RNL<1>#128> 

50  D*128+INT<RND<1>*128> 

60  E=INT <RND( 1 )#4)+l 
70  F=2*E 
75  P0KE36878.F-1 
90  F0RH=1T05#E 
100  P0KE36874,fl 
110  NEXTH 
120  F0RH=1T05#E 
130  P0KE36875.B 
140  NEXTH 
150  F0RH=1T05*E 
160  P0KE36376,C 
170  NEXTH 
180  F0RH=1T05#E 
190  P0KE36877.D 
200  NEXTH 
210  F0RH=1T02*E 
220  P0KE36874.R 
230  NEXTH 
240  F0RH=1T05*E 
250  P0KE36876,C 
260  NEXTH 
500  RUN 

1000  PRINT "3"  :REM  CLEAR 
1010  P0KE36879, 16#<  INT<RND<  1  )#16»+<  INT<RND<  1  >#8> )+8 
1020  RETURN 

Symphony  for  a  Melancholy 
Computer  with  Zen  Show 

This  is  the  same  program  as  just  listed,  with  an  underplayed  visual  display  added. 


10  REM  SVMPHONV  FOR 

15  REM  fl  MELRNCHOLV 

16  REM  COMPUTER 

17  REM  WITH  ZEN  SHOW 

18  GOSUB1000 

20  R=128+INT<RND<1)#128) 
30  B*128+INT <RND< 1 )#128> 
40  C=128+INT<RND<1)#128) 
50  D*128+INT<RND<  0*128) 
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60  E=INT<RND<1>#2>+1 
70  F=2#E 
75  P0KE36878,F-1 
90  F0RH=1T05#E 
100  P0KE36874,A 
110  NEXTH 
120  F0RH=1T05*E 
130  P0KE36875,B 
140  NEXTH 
150  F0RH=1T05#E 
160  P0KE36876.C 
170  NEXTH 
180  F0RH=1T05#E 
190  P0KE36877,D 
200  NEXTH 
210  F0RH~1T02#E 
220  P0KE36874.R 
230  NEXTH 
240  F0RH=1T05#E 
250  P0KE36876.C 
260  NEXTH 
500  RUN 

1000  PR  I  NT  "T:  REM  CLEAR 
1010  P0KE36879, 16#< INTCRNDC 1 )#16) >+< INT<RND< 1 )*6> )+8 
1020  F0RJ=1T05 
1030  PRINT 
1040  NEXT 

1050  PRINT" 3BVMPH0NY  FOR  A  MELANCHOLY  COMPUTER  " 

1060  PRINT 

1065  FOR -J=  1  TORND  <1  >*20  =  PRINT"  " ;  :  NEXT 
1070  PRINT  CHP.f <  1 19+INT<RND<  1  >#15)  ) 

1075  FOR  J=  1 TORND  <  1. )  *20 :  PR  I  NT  "  " ;  :  NEXT 
1080  PRINT  CHR$< 1 19+INT <RND< 1 >#15> ) 

1085  FOR  J  =  1  TORND  <  1 )  #20 :  PR  I  NT "  ";:NEXT 
1090  PRINT  CHR$< 1 19+INT <RND< 1 >#15> ) 

1095  FOR  J=  1  TORND  <0  #20:  PR  I  NT"  ";:NEXT 
1100  PRINT  CHR$ < 1 1 9+ 1 NT < RND <\  > # 1 5 ) ) 

1110  RETURN 


Fairway 

In  this  game,  you  are  on  a  nine  hole  golf  course.  The  length  of  each  hole  varies  each  time  you 
play  the  game.  The  program  makes  much  use  of  POKEing  to  create  the  green,  and  move  the  ball. 
The  sound  the  ball  makes  is  particularly  interesting  if  you  overshoot  the  hole. 

There  is  no  need  for  me  to  explain  how  the  program  works,  as  it  is  generously  provided  with 
REM  statements. 
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10  REM  FAIRWAV 

15  P0KE36879,28 

20  SC=0 : REM  SCORE 

30  flV®0 : REM  AVERAGE 

100  F0RA=1T09:REM  NO.  OF  HOLES 

105  T*0:REMTALLV  THIS  HOLE 

110  D=INT <RND< 1 )#7)+14 : REM  DISTANCE  TO  HOLE 

120  PR  I  NT  "T  :REM  CLEAR  SCREEN 

125  C=0 

130  M=0 

400  GOSU56000 

500  GOSUB5000 

510  IFMOD  THEN  500 

520  IFABS(M-D)<2  THEN  8000 


525  IFM>21  M=21 


536  GOTO500 
540  END 

5000  PRINT  "JCSHOLE  NUMBER "R 
5005  PRINT, D#10"VflRDS" 

5010  PRINT 

5012  PR  I  NT  "  1SCORE  "  SC  "  ifTRLLV  "  T 

5015  IFD=M  THEN  8000 

5020  PRINT"!® I STANCE  FROM  HOLE:" 

5025  IF  D-M=>10  THEN  PRINT"a"<D-M)#10"VARDS 

5026  IF  D-M<  10  THEN  PRINT"  "<D-M>*10"VARDS 

5030  PR  I  NT  "i"  _ _ _ 

5040  INPUT"WHICH  CLUB'SC 
5042  T-T+l 

5044  GOSUB7000 

5045  POKE38730+M,  1 
5047  IFM>D  THENC=-C 
5060  M-  I  NT  <M+C/3#RND<  1+1  > ) 

5065  C=0  '•  1  '■  '  • 

5070  POKE8010+M,81 
5080  POKE38730+M,2 
5090  RETURN 

5999  END 

6000  REM  DRAW  GREEN 
6010  FORQ=8032TO8119 
6020  POKEQ, 102 
6030  POKEQ+38752-8032,5 
6040  NEXT  Q 

6050  POKE8032+D , 74 : POKE8033+D , 75 
6060  P0KE38752+D , 2  =  P0KE38753+D , 2 
6065  POKE8010+M..81 
6070  POKE38730+M, 2 
6100  RETURN 
7000  FORW* 1 28T0 1 80+3#M 
7005  P0KE36878, 15 
7020  P0KE36875, W 
7030  P0KE3S874, W 
7040  NEXTW 
7050  POKE36875,0 
7060  POKE36874,0 


7500  RETURN 
8000  T*T-1 

8002  POKE36876,220 

8003  F0RP"1T05;NEXT 

8004  P0KE36876 , 0 : P0KE36876 , 225 : P0KE36876 , 0 
8010  PRINT"VOU  GOT  IT  IN"T 

8020  POKE8010+M, 1 
8030  POKE8032+M,81 
8040  P0KE38774+M,2 


8050  POKE8033+M, 102 
8060  P0KE38775+M/5 
8062  SC=8C+T 

8065  PR I NT" ■AVERAGE " INT<SC/R+. 5) 
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Jelly  Bean  Space  Swarm 

In  Adam  Burbidge's  program,  you  are  the  navigator  on  a  starship.  Suddenly  you  find  yourself 
embroiled  in  an  asteroid  storm.  Only  you  can  Save  The  Ship  From  Destruction. 

You  are  the  purple  checkerboard  in  the  left  hand  corner  of  the  screen.  As  you'll  see  when  you 
run  it,  the  asteroids  appear  at  different  points.  By  using  your  two  controls  (4-left,  6-right)  you 
have  to  steer  out  of  the  way  of  the  asteroids  (which  look  somewhat  like  jellybeans,  hence  the  ti¬ 
tle).  The  pressure  increases  as  the  game  continues.  The  number  of  asteroids  increases,  and  their 
colour  changes. 


1  REM  JELLYBEAN  SPACE  SWARM 

2  REM  BY  ADAM  BURBIDGE 

3  REM  STANDARD  MEMORY  ONLY 

4  SC=0=HS=0 

5  PR I NT "3"  : REM  CLEAR  SCREEN 

10  FORJ®1TO20 :  PRINT : NEXT 

11  P0KE36879,  255 
40  POKE7746,102 
43  8*38466 

45  P0KE38466,4 
50  FORT  = 1 TO300 : NEXT 
60  A=7746 
65  POKER, 32 

70  GET  R$: IF  A$*”4"  THEN  A=A-l:B=B-l 

71  IFA$«"6"  THEN  A=R+l:B=B+l 

72  P0KE<fi-23>,32 

73  P0KE<R-21),32 

74  P0KE<A-22>,32 

75  POKER, 102 

76  PQKEB,4 
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77  FORT  = 1 TO 1 00 : NEXT 

78  IFPEEK<A+22>=81  THEN  200 

79  SC-SC+l 

80  X®INT <RND< 1 >#506)+7680 

89  POKEX+30720,6 

90  P0KEX,81 

93  IF  SC>400  THEN  500 

95  IF  SO300  THEN  GOSUB  400 

96  IF  SO200  THEN  GOSUB  350 
100  PRINT 

110  G0T065 

200  POKE  36877,220 

210  FORL=15TO0  STEP  -1 

220  POKE  36878, L 

230  FORM=1TO300 

240  NEXTM 

250  NEXTL 

260  POKE  36877,0 

270  POKE36878,0 

280  PRINT"SHIP  DESTROVED! ! ! ! " 


285  PR I NT " SCORE3 " ;  SC 

286  IF  SOHS  THEN  PRINT"HIGH  SCORE® SC :HS®SC 

287  IF  SC<HS  THEN  PRINT"HIGH  SCORE® ";HS 
290  FORT*1TO7000 : NEXT 

295  SC=0 
300  GOTO  5 

350  V® I NT  <  RND  <  1 ) #506 ) +7680 
368  POKE V, 81 
370  POKEY+30720, 2 
380  RETURN 

400  D® I NT (  RND  < 1 ) #506 ) +7680 
410  POKED, 81 
420  POKED+30720,5 
430  RETURN 

500  PRINT"WELL  DONE,  YOU'VE" 

510  PR I NT " SUCCESSFULLY  NAVIGATED  THROUGH" 

520  P0KE36878, 13 

530  P0KE36876, 135 

540  FOR  0®241  TO  135  STEP-1 

550  FORM® 1 TO 100 

555  P0KE36876,0 

560  NEXTM 

570  NEXTO 

580  POKE36876,0 

590  POKE36878,0 

600  END 
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Superpoet 


The  VIC  turns  into  Wordsworth,  cranking  out  some  splendid  poems,  and  a  few  which  are  not 
so  brilliant.  Once  you've  seen  it  in  action,  change  the  words  in  the  subroutines  1 00  to  270  to 
suit  your  own  taste.  Note  the  use  of  ON...GOSUB  in  line  40. 


5  REM  SUPERPOET 

10  PRINT"T:REM  CLEAR  SCREEN 

15  IF  RND<1»0.3  THEN  30 

20  F0RJ*1T0RND< 1  >#2 : PRINT : NEXT 

30  F0RJ=1T0  RND< 1 >#5+1 = PRINT"  "J'-NEXT 

35  J=INT<RND<1>#18>+1 

40  ON  J  GOSUB  100,110,120,130,140,150/160,170,180,190,200,210,220,230,240,250.26 
0,270 


50  F0RP*1T0  RND(1 >#2000= NEXT 
70  GOTO 15 

100  PRINT"iDETRCHED"; : RETURN 

110  PRINT"*JNAWARE"; : RETURN 

120  PRINT" kUNABLE " ; : RETURN 

130  PR I NT "  ^1 N I T I ATE " ; : RETURN 

140  PRINT"HREACHED  OUT  FOR";: RETURN 

150  PRINT"aRVOIDS"; : RETURN 

168  PRINT"!BSUFFERS"; : RETURN 

170  PRINT"iCflPRCITV"; : RETURN 

180  PRINT"!*SPIRITURL"; :  RETURN 

190  PR I NT "  ^ALTHOUGH " ; : RETURN 

200  PRINT”1DISCIPLE"; : RETURN 

210  PRINT"8HE"; : RETURN 

220  PR I NT "AND"; : RETURN 

230  PRINT" *THEN"; : RETURN 

240  PRINT"iWASTER"; : RETURN 

250  PRINT " SIAFTER " ; :  RETURN 

260  PRINT"!!t.ONELV"; :  RETURN 

270  PRINT"imS";  : RETURN 

AND  THEN 
UNAWARE 
UNABLE 

ALTHOUGH 
AND  MASTER 

REACHED  OUT  FOR 

UNABLE 

MASTER  RETURNED 
UNABLE 

CAPA  CITY  SPIRITUAL 
DISCIPLE  HE 
LONELY  HE 

A  VOIDS  LONEL  Y MASTER 
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Zauper  Attack 

In  this  program  by  Christopher  Hutber  of  Milton  Keynes,  you  must  zap  the  Aliens  before  they 
are  eaten  by  the  Zaupers.  You  need  to  take  care  because  these  creatures  may  also  eat  you.  "Z" 
moves  your  gun  left,  and  "C"  moves  it  right.  "X”  will  fire  your  gun.  Full  instructions  are  within 
the  program. 


Structure  of  the  program: 

Subroutine  from  7000:  This  sets  up  a  title  page  and  gives  the  player  instructions  if  they  are 
wanted. 

Line  8:  Reads  the  time  for  the  start  of  the  game.  This  is  compared,  in  due  course,  with  another 
reading  (line  1 005)  to  see  how  long  the  round  took  you. 

Lines  1  5  to  70:  Draw  Aliens. 

Lines  100  to  120:  Drawgun. 

Lines  140  to  192:  Get  commands  from  player. 

Lines  200  to  320:  Move  the  gun. 

Routine  from  line  400:  Fire  gun. 

Line  555:  Increment  score. 

Routine  from  line  1 000:  End  of  game,  new  game  option. 

Routine  from  line  3000:  'Active  Zaupers'. 


0  pi?  t  mt  11  n11 

1  REMARKABLE  PROGRAMME  w  CHRISTOPHER  HUTBER  AGED  12 

2  REM  24-27/12/81 

3  GOSUB  7808 

8  T1*TI 

9  SC=0 

10  PRINT "T 

13  REM  DRRU  ALIENS 
15  POKE  36879; 8 
20  FOR  1*38400  TO  38531 
30  POKE  I;1 
40  NEXT  I 

50  FOR  H«7680  TO  7767STEP  3 
60  POKE  H; 81 
70  NEXT  H 
90  REM  BRAN  GUN 
100  T*7955 

110  FOR  R*38664T038664+2 1 

112  POKE  R; 7 

114  NEXT  R 

120  POKE  T,65 

130  IF  8030  THEN  1000 

135  REM  OET  INSTRUCTION 

140  OET  A$!IF  At*" "THEN  3000 

170  IF  A*«"X"THEN400 

180  IF  R*»"C"THEN300 

190  IF  Af-"Z"THEN200 

192  IF  flf«"#"THEN  5000 
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195  GOTO  148 
197  REM  MOVE  GUN 
200  FOR  B*7944T07965 
210  POKE  B/70 
220  NEXT  B 
230  T*»T-1  :GOTO  120 
300  FOR  B-7944T07965 
310  POKEB/70 
320  NEXTB 

330  T«T+l:GQTO  120 

399  REM  FIRE 

400  FORF"TTO7680+  <  T-7944 >  STEP-22 
410  POKEF/46 
412  FOR  U-l  T025 : NEXTW 
414  POKE  F/32 

420  IF  PEEK<F-22>81THEN  GOTO  480 
430  NEXTF 
455  POKE  F+22/96 
460  FOR  IB1TO50:NEXTI 
470  POKE  F/87 

472  FOR  G*,7680+<T-7944)TQT-22STEP22 
474  POKE  G/96 
480  PQKEF-22/32 

482  IF  PEEK(F)O81RNOF<7702THEN  GOTO 
488  POKE  36877/220 
490  L*7 

500  POKE  36870/ L 
510  FOR  M*1T0  200 
520  NEXT  M 
540  POKE  36876/0 
550  POKE  36678/0 
555  8080+1 

560  PRINT"  SCORE : "  i  80/  "T  :  GOTO  120 
600  PRINT"  0BCORE : " / SC; ».T s GOTO  120 
1000  PRINT'1!!" 

1005  T2»TI 
1010  POKE  36079/30 
1020  PRINT"H6£LL  BONE!" 

1030  PRINT" VOU  UIPEO  OFF  THE  ALIENS  IN  "/INT«T2~T1V60>/"  SEC0ND8 1 " 

1031  POKE  36878/ 15 

1032  FOR  L"1  TO  100 

1033  POKE  36876/ INT<RND(1)9128)+128 

1034  FOR  N*1  TO  10 

1035  NEXT  N 

1036  NEXT  L 

1037  POKE  36676/0 

1038  POKE  36878/0 
1040  PRINT SPRINT 

1050  PRINT"PLflV  AGAIN  7" 

1055  PRINT  SPRINT 
1060  GETS! 

1070  IF  Sf*"ttTHEN1060 
1080  IF  8f*»"V"THEN  8 
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1090  IF  8*»"N"THEN1200 

1100  GOTO  1060 

1200  PRINTTAB<7>;"BYE  BYE" 

1205  PRINT 

1210  PRINT"THANK8  FOR  PLAYING" 

1300  END 

2999  REN  ACTIVATE  ZAUPER3 

3000  FORE*b1TO10  '  R«INT <RND( 1  )075)+7680 
3010  IF  R>7767  THEN  3000 

3020  Q*INT (RND( 1 >020>+7944 
3050  D**0.  5+RNDC 1 ) 

3060  IF  D<1THEN  V-21 

3070  IF  D>1THEN  V-23 

3100  FOR  Z"RTQQSTEPV 

3110  POKE  Z*61 

3120  POKE  Z~V*32 

3130  FOR  X»1T0255NEXTX 

3150  IF  A#«"$"THEN  5150 

3200  OET  A$  '•  IF  AfO"  "THEN  170 

3300  NEXT  Z 

3400  IF  Z-TTHEN  4000 

3500  GOTO  170 

4000  PRINT" 7HZ AUPERS  HAVE  HON  " 

4050  PRINT 

4100  PRINT"MOON  BASE  DESTROYED!" 

4150  REN  EXPLOSION 
4200  POKE  36877*220 
4230  FOR  L-15TO0STEP-1 
4250  POKE  36878* L 
4270  FOR  N-1TO300 
4290  NEXT  N 
4300  NEXT  L 
4320  POKE  36877*0 
4330  POKE  36878*0 
4500  GOTO  1040 
5000  SC-SC-5 
5100  PRINTSC*  "T 
5200  FOR  K-1TO  50:  NEXT  K 
5300  GOTO  10 

7000  PRINTTAB<3> ; "  0  " 

7010  PRINT  TABC3)* "IZAUPER  ATTACK!  81 " 

7020  PRINTTAB<3>* "I  BY  81 11 
7030  PRINTTAB<3>* "IC.R. J,  HUTBER  81" 

7040  PRINTTAB<3> ; "  8  hMMf " 

7060  PRINT: PRINT 

7100  PRINT" INTRUCTI0N8  <Y  OR  N>?" 

7120  GET  N$! IF  Ml"" "THEN  7120 
7130  IF  N$«"N"THEN  RETURN 
7140  IF  NS«"Y"THEN  7500 
7150  GOTO  7120 
7500  PRINT"YES" 

7£10  PRINT 

7520  PRINT" "ZAUPER  ATTACK"  18  A  GANE  OF  SPEED." 


90 


7530  PRINT :PRINT"THE  OBJECT  IS  TO  KILL  ALL  THE  ALIENS  IN  AS  QUICK  TIME  AS 
POSSIBLE." 

7540  PRINT: PRINT 
7550  PRINT"HIT  A  KEV" 


Li  L.  L&J 
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7560  GET  Nr- IF  Nf-""THEN  7560 
7600  PRINT".?' 

7610  POKE  36879/8 
7620  PRINT" 0  KEV" 

7630  PRINT"  - » 

7640  PRINT: PRINT 
7650  PRINT"  §  -ALIEN" 

7655  PRINT 

7660  PRINT"  -  -ZAUPER" 

7665  PRINT 


7670  PRINT"  «  -VOUR  GUN" 

7672  PRINT: PRINT: PRINT 
7675  PRINT"HIT  A  KEV" 

7680  GET  Of: IF  Of-" "THEN  7680 
7700  PRINT"?' 

7710  POKE  36879/234 

7720  PRINT"fTHE  ZflUPERS  EAT  THE  ALIENS  AND  WILL" 
7730  PRINT"CRASH  INTO  VOU  GIVEN  HALF  A  CHANCE. " 

7735  OOSUB  9000 
7740  PRINT: PRINT 

7750  PRINT"TO  MOVE  VOUR  OUN  PRESS" 

7760  PRINT :  PRINT" 'Z'-MOVES  IT  LEFT" 

7770  PR I NT : PR I NT " ' C ' -MOVES  IT  RIGHT" 

7800  PRINT: PRINT 

7810  PRINT"TO  FIRE  OUN  PRESS1 'X'" 

7820  PRINT: PRINT 
7830  PRINT"HIT  A  KEV" 

7840  OET  Vf :  IF  Vf*"  "THEN  7840 
7850  PRINT"?1 

7900  PRINT"WHEN  ALL  THE  ALIENS  ON  THE  SCREEN  HAVE" 
7910  PRINT"GONE/ PRESS1 

7920  PRINT"THIS  WILL  TAKE  VOU  BACK  TO  THE  START  AND" 
7930  PRINT"TAKE  AWAV  FIVE  POINTS" 

7950  PRINT: PRINT 

9000  PRINT"HIT  A  KEV  TO  START" 

3010  GET  Xf : IF  Xf®" "THEN  8010 
8020  RETURN 
9000  PRINT: PRINT 

9010  PRINT"THE  ZAUPERS  ARE  HIGHLVSENSITIVE  TO  THE  HEAT  " 
9020  PRINT"OIVEN  OFF  BV  VOUR  MOVEMENT  AND  FIRING/" 
9030  PR I NT "THUS  WHEN  VOU  DO  SO/" 

9040  PRINT"THEV  ARE  PARALVSED!" 

9045  PRINT :PRINT"HIT  A  KEV" 

9050  GET  Vf : IF  Vf-" "THEN  9950 
9060  PRINT"?1 


9070  RETURN 


Superbowl 

* 

The  VIC  sets  up  the  pins  for  you  in  this  simulation  of  a  1 0-pin  bowling  alley,  and  then  obliging¬ 
ly  knocks  them  down,  adding  up  your  score  as  it  goes. 
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There  are  1 0  frames  to  a  game,  two  balls  to  a  frame.  As  you'll  play  this  game,  you'll  find  that 
strikes  are  few  and  far  between.  There  is  a  highest  score  routine  (310  to  330)  which  you  may 
well  want  to  adapt  for  other  games  you  write. 


5  REM  SUPERBOWL 
20  Y=0 : S=0 

30  PR  I  NT"  REM  CLEAR 
40  FORB=1TO10 
50  GOSUB500 

60  FORE® 1 T02 ; PR INT : PR I NT : PR I NT 
65  PR I NT" S": REM  HOME 
70  PRINT"  IHFRAME " B " ©ALL " E 
75  PRINT: FORT® 1 TO500 : NEXT 
80  2=0 

90  FORC=1TO10 
100  IFE=2THEN120 
110  A<C)=79 

120  IF  RND<1)>0.5  THEN  -A<C)=45 
130  IF  A<C)=45  THEN  2=Z+1 
140  NEXTC 

145  PRINT: PRINT 'PRINT 

150  PRINT , "■"CHR$<A( 10) ) "  "CHR$<A<9) > "  "CHR$<A(8)>"  "CHR$<A<7)> 
155  PRINT :GOSUB700 

160  PRINT,"  "CHR$<A<6>>"  "CHR$(fl<5))"  "CHR$<fl<4>> 

165  PRINT :GOSUB700 

170  PRINT,"  "CHR$<fi<3)>"  "CHR$<A<2)^ 

175  PRINT :GOSUB700 
180  PRINT,"  "CHR*<R<1» 

190  PRINT 

200  PRINT"  tSSBCORE  THIS  FRAME "Z" 

215  PRINT 

220  IFE=1  ANDZ=10  THEN  370 

230  IFZ®10  THEN  Z=15  =  PRINT,  "iSBONUSM  " 

240  IFE=2  THEN  S=S+Z 

250  IFE=2  AND  BO10  THEN  PRINT"  iSCORE  SO  FAR  IS"S 
260  FORT  = 1 TO 1 000 : NEXT 
270  PRINT 
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280  NEXTE 
290  NEXTB 

300  PRINT"n*SCORE  FOR  THAT  GAME  WASii"S" 

310  IFSCV  THEN  330 
320  V=S 

330  PRINT"  iSHIGHEST  SO  FAR"Y 

340  FORT* 1TO9000: NEXT 

350  S=0 

360  GOTO30 

370  PRINT 

380  PRINT *"!*aSTRIKEM" 

oo*;  ppTKJT 

390  FORT*1TO1000 : NEXT 
410  S*S+15 


420  E*2 
440  GOTO230 

500  FORD* 1  TO  1 0  ■'  A  ( D ) *79 : NEXT 
505  GOSUB2000 
510  PRINT  "H" 

520  PRINT  "  ilFRAME 
530  PRINT: PRINT 
540  PRINT: PRINT 

550  PRINT* "■"CHR$<A<10)>"  "CHR$<A<9>> 
555  PRINT 

560  PRINT*"  "CHR$<A<6>>"  "CHR$<A<5)>" 
565  PRINT 

570  PRINT*"  "CHR$<A<3>>"  "CHR$<A<2>> 
575  PRINT 

580  PRINT*"  "CHR$<A<1>> 

585  F0RJ=1T05: PRINT" 

590  FORT* 1 TO 1000 : NEXT 

600  RETURN 

700  REM  DELAV*  SOUND 

710  POKE36878* 15 

720  F0RU*249T0239STEP-2 

730  P0KE36876*U 

750  F0RU*238T0249 

760  P0KE36876*U 

770  NEXT 

780  POKE36876*0 

800  POKE36878*0 

810  FORT* 1TO50: NEXT 

820  RETURN 

2000  REM  SET  UP  SOUND 
2010  P0KE36878* 10 
2020  F0RK*248T0148  STEP-2 
2025  P0KE36879 *  26+ 1 NT  <  RND  < 1 ) *6 ) 

2030  P0KE36876*K 
2040  P0KE36875*K 
2050  NEXT 
2055  P0KE36878*8 
2060  RETURN 


"  "CHR$<A<8)>"  "CHR$<A<7>> 
"CHR$<A<4>) 


If 


:  NEXT 
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Zombie  Island 


Your  plane  has  crashed  on  a  remote  island,  where  the  only  topological  features  are  round 
green  swamps,  and  the  only  inhabitants  are  mindless  zombies,  shown  on  the  display  as  letter 
Z's.  The  zombies  are  out  to  get  you,  a  black  'clubs'  symbol.  You  can  move  anywhere  on  the 
island,  except  through  a  swamp.  The  zombies  are  pretty  stupid.  They  can  see  you,  but  not  the 
swamps,  and— as  is  well  known  among  zombiologists— zombies  drown  instantly  in  swamps. 
You  survive  only  if  you  manage  to  lure  the  zombies  into  the  swamps. 


You  control  your  movements  on  the  island  with  four  keys— ''A''  =  up,  "Z"  =  down,  = 
left  and  "."  =  right.  Although  you  may  find  it  a  little  strange  using  these  keys  at  first,  you'll 
soon  find  you  are  automatically  pressing  the  right  key  for  the  direction  in  which  you  want  to 
move.  It  will  help  you,  in  the  early  stages  of  using  these  keys,  to  note  that  the  'greater  than'  and 
'less  than'  symbols  point  in  the  direction  you  will  move  if  you  press  that  key.  These  four  keys 
are  used  in  a  number  of  programs  in  this  book,  and  you  may  well  want  to  use  them  in  your  own 
moving  graphics  games. 


The  number  of  zombies  on  the  island  is  determined  randomly  (line  2055)  and  neither  they,  nor 
you,  can  move  outside  the  area  bounded  in  purple  on  the  screen.  The  number  of  drowned  zom¬ 
bies  is  shown  near  the  bottom  of  the  screen,  as  is  the  number  left  alive.  The  zombies  make 
quaint  noises  as  they  move  in  a  reasonably  intelligent  way,  but  have  some  preprogrammed  stu¬ 
pidity  to  give  you  a  chance  to  survive.  The  fewer  zombies  there  are  left,  the  faster  they  move,  so 
the  last  one  alive  can  give  you  a  run  for  your  money.  Each  round  of  the  game  ends  with  an  echo 
of  the  noise  your  plane  made  when  crashing.  After  a  short  pause,  a  new  game  will  start  auto¬ 
matically. 

10  REM  ZOMBIE  ISLAND 
20  GOSUB2000 

30  G£TS$: IFS$*""THENS$=T$ 

40  AE-R : BE=B 

50  I FS$= " fl " THEN A« A-22  =  B«B-22 
60  I  FSf5®  "  Z  "  THENAasA+22 :  B«B+22 
70  I FS$* " . " THENA«A+ 1 : B*B+ 1 
80  I FS*» " , " THEN A« A- 1 : B=B~ 1 
90  W*PEEK<A> 

1 00  I FW* 1 27THENA* AE  =  B*BE 
1101 FW»26THEN A* AE : B«BE 
1 20  I FW*8 1 THEN A* AE  =  B-BE 
130  PGKEAE  >  1 : PQKEBE  >  1 
140  POKE A } 88 : POKED  > 0 
150  T$*S$ 

160  REM  CONTROL  ZOMBIES 
170  F0RR*1TQV 
180  IJ=0 

1 85  I FPEEK (GKR) >*81 THEN260 
190  I FQ  <  R  >  >ATHENUte~  1 : 1 FRND  <  0  » .  5THENU—22 
200  IFGKR) < ATHENU* 1  =  I FRND < 0 > > . 5THENU*22 
2 1 0  POKE© < R > , 46 : POKEP <R) >  1 
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220  Qf.R>«Q<R)+U:P':R>«P<R)+U 
223  I FPEEK CQCR)  >  =88THEN400 

230  I  FPEEK  <Q<R>  >*81  THENTCasTC+ 1  s  FOR  I  ■  1 TO20 :  PQKE36873  , 

255-3# I • NEXT : P0KE36875, 0 • GOT  0260 
235  IFPEEKCQCR) >»127THENQ<R>*Q<R>-U : P<R>*P<R>-U 
240  POKEQ <R> , 26 : POKEP < R > , 2 
260  I FTC* VTHEN3 1 0 
270  P0KE36874 , 250-RND  C  0  )  #  1 5 
290  NEXT 

293  pr  i  nt  11  »  tc  "  out  qf"y 

300  GOTO30 

310  PR  1  NT 11  V  "  TC 11  OUT  OF"V 

312  POKE36878.0 

315  PR  I  NT  "  SWt'OU  '  VE  SURVIVED!!" 

320  GOTO407 

400  POKEQ <  R  X,  26 : POKEP <R),2 
402  P0KE36874 , 0 

405  PRINT"»«WnMW^^  OF  "  V 

406  PR  I  NT  "  SPSTHAT  '  S  THE  END!" 

407  FQRV*1TO100 

408  P0KE36877 , 1 30+RND  < 0 ) # 1 00 
420  NEXT 

430  P0KE36877  , 0 
440  FOR V= 1 TO3000 : NEXT 
ana  pi  in 

2000  REM  INITIALISE 
2005  PRINT"ZI"  :  V*© 

2010  F0RJ-1T015 

2020  P0KE7679+ J ,127: P0KE38399+ J , 4 
2030  P0KE7987+ J ,127: POKE38707+J , 4 
2040  NEXT 

2050  FOR J»7680TO7988STEP22  =  POKE J , 1 27 : POKE30720+J , 4 

2054  Z=INT <RND<0>#1 1  >+3 :  Zl^INT <RND<0)#1'1  )+3 

2055  I F J>7680RND J<7988THENP0KE J+Z ,81 : POKE J+Z+30720 , 3 

2056  T=0 : 1 F J>7680ANDJ<7988 ANDRND  <  0  » . 6THENT* 1 

2057  IFT«1THENV*V+1 :Q<V>sJ+Zl : PC V>* J+Z 1+30720 :POKEQ<V), 26= POKEP <V>, 2 
2060  POKE J+ 15,127  =  POKE30735+J , 4 

2070  NEXT 

2080  fl*7726 : B«38446 : REM  START  POSITION  PLAVER 
2090  POKE A , 88 : POKEB , 0 
2100  T$*"." 

2120  P0KE36878, 15 
2500  RETURN 
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Motorcycle  Jump 


You  are  Evil  K.,  world  champion  stunt  rider,  and  your  task  in  this  graphic  game  on  the  VIC  20 
is  to  jump  over  a  number  of  red  London  buses.  Each  time  you  succeed,  a  new  bus  is  added  to  the 
ones  you  must  leap. 

When  you  run  the  program,  you'll  be  told  the  angle  of  the  ramp,  and  the  number  of  buses  you 
must  jump.  You  enter  the  speed  at  which  you  wish  to  leave  the  ramp  (we  suggest  you  start  off 
between  34  and  40  miles  per  hour)  and  you'll  see,  and  hear,  your  motorbike  spin  up  and  over 
the  ramp,  and— I  hope— over  the  buses.  If  you  succeed,  the  ramp  will  be  raised,  and  the  number 
of  buses  will  be  increased. 

Because  the  angle  of  the  ramp  affects  the  distance  you  can  clear,  and  because  this  program 
uses  an  approximation  to  genuine  formulas  to  work  out  whether  or  not  you  would  clear  the 
buses  given  a  particular  take-off  speed  on  a  ramp  of  that  angle,  you'll  find  your  interest  in  this 
program  will  remain  high,  no  matter  how  many  times  you  play  it.  There  is  no  way,  for  example, 
to  know  that  if  there  are  four  buses,  a  speed  of  42  mph  will  always  clear  them.  It  depends  on  the 
angle  of  the  ramp. 

If  you  use  too  much  acceleration,  you'll  flip  upside  down.  Too  little,  and  you'll  crash.  Far  too 
little,  and  the  program  will  tell  you  that  you've  "bingled"!  If  you  manage  to  clear  eleven  buses, 
you'll  be  declared  "The  Champ". 


10  REM  MOTORCYCLE  JUMP 
12  POKE  36879  > 24 
15  PR I NT "n"  : U®7 
20  GO8IJB2000 :  REM  VARIABLES 
30  GOSUB3000 = REM  DISPLAY 
100  GOSUB1000 : REM  CALCULATE 
105  A$=" BINGLED! " 

110  1 F ABS  <  F~L »5THENA$« " CRASHED " 

120  IFF>*LANDF«<L+15  THENA**" SUCCESS" 
130  I FF>L+ 1 5THENA$» " LANDED  UPSIDE  DOWN" 
140  U**1 ; GGSUB3000 
145  L*L+10:N*N+INT<RNBa>#3+l> 

147  B*B+1 : IFB^l 1THEN5000 : REM  CHAMPION 

200  GOTO 100 

300  REM  SOUND  FK 

310  P0KE36377 ; 220 

320  P0KE3S378; K/3 

330  RETURN 

360  P0KE36877  > 240 

370  P0KE36378  >  1 . 7*2 

380  RETURN 

1000  PRINT"«MRAMP  >"N" DEGREES" 

1010  PRINT "JSTTHERE  ARE"B" BUSES" 
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1020  PRINT"WTHIS  IS  ATTEMPT "R 
1 040  I NPUT "  M8PEED " ; V : I FVO0THEN 1 040 
1 045  FORK* 1 TO500 : NEXT 
1 050  A=A+ 1 =  E*  < V*52S > /360 

1060  F*CE#COSCN:>  >#<  CE#8INCN>  >/32. 2>  :  F*ABSCF> 

1070  RETURN 

2000  L*  1 0 : N=25 :  B=  1 ; A* 1 
2030  RETURN 

3010  FORZ*lTOB 
3020  PRiNT"ra  ■" ; 

3030  NEXT -PR I NT 

3040  IFU*7THENRETURN 

3050  PQKE7944 ,127  =  P0KE3S664 , 4 

3060  FORK*  1 TO50  =  00.SUB3 1 0 :  NEXT 

3070  P0KE38664,1 

3080  W*7921 : W 1*38641 

i§l§  ?PSll AT?i?3>»ZTHENW*W~2$ • Wl*Wl-23 

3100  P0KEW+Z,127 

3200  FQKEW 1+2,4 

32 1 0  FORK* 1 TOZ  =  GO8UB360 : NEXT 

3220  POKEW1+Z, 1 

3300  FORK* 1 TO 1 0 : NEXT 

3310  NEXT2 

3330  I FLEFT$ <A$,1)0"S" THEN4000 

3350  FQR2*B+4T0B+8 

3360  W*W+23 : W 1 *W 1 +23 

3370  POKEW+Z, 127 

3380  PQKEW1+Z, 4 

3390  FORK*lTO20+2 

3400  NEXT 

3410  POKEW1+Z, 1 

3420  NEXTZ 

3430  P0KE36878 , 0 

m  F5B& TO20  :  P0KE36879,  INT<  16#RND<  1  >+2+RNDC  1  :  GOSUS320 •  NEXT 

4010  PRINT "UWQH  NO,  VOU'VE" 

4020  PRINT"W"A$ 

4022  P0KE36877 , 250 

4025  FORT* 1 TO 1 00 : P0KE36878 , RND Cl > * 1 5+ 1 

4030  NEXT 

4035  P0KE36878 , 0 

4040  GOTO4040 

5000  FORK* 1 TO20 : P0KE36879 , 1 NT  C 1 6#RND  C 1 >  +2+RND  < 1 >  *8 ) : NEXT 

5010  P0KE36879, 25 

5015  FQRT*1TO50 : NEXT 

5020  PRINT"M*rvOU'RE  THE  CHAMP!!'' 

5030  GOTO5000  „ 

6000  REMSTART  WITH  AROUND  34-40 

6010  REM  TOO  LITTLE  ACCELERATION  AND  VOU  CRASH 

6020  REM  TOO  MUCH  AND  VOU  FLIP  UPSIDE  DOWN 
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T  raff  ic  Jam 

There  are  two  versions  of  this  program.  The  first  uses  the  keyboard  to  control  your  car  ("A" 
=  up,  "Z"  =  down,",”  =  left  and"."  =  right)  while  the  second  uses  a  joystick. 

The  aim  of  the  game  is  to  drive  your  car  (a  red  asterisk)  from  the  top  lefthand  corner  of  the 
screen  to  the  carpark  (the  red  oval  in  the  bottom  righthand  corner).  You  will  be  asked  first  to  pick 
a  skill  level  from  one  to  nine.  One  is  the  hardest,  and  nine  the  easiest.  A  number  of  cars  (colored 
diamonds)  will  appear  on  the  screen,  the  number  of  cars  being  related  to  the  difficulty  level  you 
choose.  The  carpark  will  flash  off  and  on  for  a  few  seconds,  and  you'll  appear  in  the  top  lefthand 
corner  to  make  your  journey. 

You  can  only  score  if  you  make  it  to  the  carpark  without  hitting  any  of  the  cars,  more  and 
more  of  which  appear  as  the  game  progresses.  Your  score  is  related  to  the  skill  level  you  choose 
and  the  time  it  takes  you  to  drive  to  the  carpark.  The  keyboard  version  only  allows  movement 
up,  down,  left,  and  right,  while  the  joystick  version  of  the  game  also  allows  diagonal  moves. 


10  REM  TRAFFIC  JAM 
15  REM  KEYBOARD  VERSION 
20  H$«M 000000" =H8=0 
30  PRINT"!!" 

40  GO8UB9540 

1 000  GET A* : I FA$= " " THENA*=B* 

1010  E*C=Q=8 

1 020  I FA$= " . " THENS=S+ l : C=C+ 1 
1 030  I F Af* " , " THEN3-S- 1 : C=C- 1 
1 040  I FA*» " A " THENS=S~22 : C*C-22 
1 050  I FA*= " Z " THENS«8+22 : C=C+22 
1070  W*PEEK<S> 

1075  IFW«81THEN2040 

1 080  I FW= 1 02THENC«E : S=Q 

1090  IFU«90THEN2000 

1200  POKEE..  1-REM  ERASE  WITH  WHITE 

1210  PQKEC > 2 : POKES  ^  35 

1220  Ef «Fl$ 

1 230  R* INT <  RND <  0  > *458  > +7704 : R2-R+30720 
1240  W-PEEK<R> 

1250  I FW* 1 02THEN 1 230 

1 260  P0KE36878 ,15  =  P0KE36875 , 1 40+  <  R-7704 > /4 ■ P0KE36878 , 0  =  P0KE36875 . 0 
1270  POKER > 90 : P0KER2 > V AL < M I D# < P$ ^ INT<RND<0>#6)+1 , 1 > > 

1280  FORO* 1 T02#G~ 1 • NEXT 
1500  GOTO 1000 
2000  REM  CRASH 

2010  PR  I  NT "  JflMMfi'OU  HAVE  CRASHED"  :M«0 

2020  PR  I  NT  "  MSWPIT I  ME :  "  RIGHT*  <T  If ,  2>  "  SECONDS" 

£030  GOTO3000 

2040  PR  I  NT  "  HWHIWOU  MADE  ITM"-M«1 
2050  P0KE38881 t 1 
2060  PQKE38860.1 1 
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2070  GOT02020 
3000  TV=VAL<TI$> 

3003  S= I NT  < C50-T V >  # 1 00/G  > #M 
3005  IFS>HSTHENHS*S 
3007  PR  I  NT  "  MWHS.CORE :  "  8 
3010  PR  I  NT  "  I GH  SCORE :  "HS 

3020  FORT* 1 TO2000 : NEXT 
3030  GOTO30 

5000  PR  I  NT  "  Jffl&SWSK I LL  LEVEL  <1  TO  9>?" 

50 1 0  GET  2# : I FZ$= " " THEN50 1 0 
5020  G=VAL<Z$> 

5030  I FG< 1 ORG>9THEN50 1 0 
5040  PR  I  NT  "13" 

5050  RETURN 
9540  8*7703 
9550  0*38423 
9560  P$=" 654320" 

9570  B**"." 

9580  GOSUB5000 

9590  FOR2*7680TO770 1  =  POKEZ  .•  1 02  '•  POKEZ+30720 ..  VfiL 
<MID*<P$, INT<RND<0>*6>+1, 1>> : NEXT 
9600  F0RZ*8 1 64T08 1 85 :  POKEZ  .-102:  POKEZ+30720 ,  VRL 
<MID*<P*. I NT  < RND <  0 ) *6  >  + 1 , 1  >  ) : NEXT 
9620  FORZ*7680TO8164STEP22  :  POKEZ,  102  '■  POKEZ+30720, 

0 : POKEZ+21 , 102 : POKEZ+30741 , 0  =  NEXT 
9670  FORU*  1  T025~2*G 

9680  R* I NT  <  RND  <  0  > *458  > +7704 : R2*R+30720 
9685  P0KE36879 ,  I  NT  <  RND  < 0  > * 1 27  >  + 1 
9690  W*PEEKCR> 

9700  I FU* 1 02THEN9680 

97 1 0  P0KE36878 ,15  =  P0KE36875 , 1 40+  <  R-7704  > /4 ■ P0KE36878 , 0 : P0KE36875 , 0 
9720  POKER ..  90  '•  P0K.ER2 ..  VRL  <  M I D#  <  P$  .•  I  NT  (  RND  (  0  >  *6  >  + 1 ,  1  >  > 

9730  NEXT 

9733  P0KE36879..26 

9735  FORL*1TO50 

9736  POKES 162, 81  , 

9737  P0KE388S2, 0 

9738  FORT* 1TO10 : NEXT 

9739  P0KE38882, 5 

9740  NEXT 

9745  FORT* 1 TO 1 000 : NEXT 
9750  T I #*"000000" 

9780  P0KE38882, 2 
9999  RETURN 


10  REM  TRAFFIC  .JAM  < JOYSTICK  VERSION) 

15  DIMJSC2,2> 

20  HS=0 

30  RESTORE  =  GOSUB9490 

5 1 0  POKEDD ,127  =  S3*- <  C  PEEK  <  PB  > AND 128  > =0 ) : POKEDD , 255 

520  P*PEEK < P A  > : S 1 *- < < PRND8 ) *0  > : S2=  <  < PAND 1 6  > *0  > : S0*  <  <  PAND4 ) *0 ) 

530  FR*- < < PAND32 >  *0  > : X*S2+S3 : V*S0+S 1 

1010  E*C=Q*8 

1020  S*S+JSCX+1,V+1> 
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1025  C*C+JS<X+1,V+1> 

1070  W*PEEK<S> 

1075  IFW*81THEN2040 

1 080  I FW*  1 02THEMOE  '•  S=Q 

1090  I  FW*90THEN2000 

1200  POKEE , 1 : REM  ERASE  WITH  WHITE 

1210  POKED  , 2 : POKES , 35 

1 230  R=  I HT  <  RND  <  0  >  *458  >  +7704  *•  R2=R+30720 

1240  W*PEEKCR> 

1250  I FW* 1 02THEH 1 230 

1 260  P0KE36878 ,15  =  P0KE36875 , 1 40+  <  R-7704  >  /4  :  P0KE36878 , 0 :  P0KE36875  .•  0 
1 270  POKER ,  90 :  P0KER2 ,  VAL  <  M I  D$  <  P*  ,  I  NT  <  RND  <  0  >  *6  > + 1 , •  1  >  > 

1280  FQRQ»1TQ2#G~1  ‘-NEXT 
1500  GOTO510 
2000  REM  CRASH 

2010  PR  I  NT  "  )MilWOU  HAVE  CRASHED" :M*0 

OttOCt  RnTO'3lPl7R 

2040  PR  I  NT "  JSWMPfVOU  MADE  IT!!" :M*1 
2050  PQKE3888 1 , 1 
2060  POKE38860  , 1 

2070  PR  I  NT  "  KWlilfT  I  ME :  "RIGHT#<TI*,  2>  "  SECONDS" 

2080  8* I HT  <  C  50- V AL  C T I $  >  >  * 1 2345/G  >  *M 
2090  IFS>HSTHENHS*S 
2 100  PR  I  HT  "  MWMSCORE :  "  S 
2 1 05  PRINT " TmWH I GHSCORE :  " HS 
2110  FORT* 1 TO3000  :  NEXT 
2120  GOTO30 

5000  PRINT" XUD9MSK I LL  LEVEL  Cl  TO  9)?" 

5010  GET  Z$: IF2$»""THEN5010 
5020  G*VALCZ$> 

5030  I FG< 1 ORG>9THEN50 1 0 
5040  PR I NT "H" 

5050  RETURN 
9490  PR  I  NT  "Cl" 

Q^aa  PFMINITIAI  TSE 

95 1 0  P0KE37 139,0: BB*37 1 54 : P A=37 1 37 : PB«37 1 52 

9520  FOR2*0TO2 : FOR J*0TO2 : RE AD JS < J , Z  > : NEXT J , Z 

9530  DATA-23, -22, -21, -1,0, 1,21,22,23 

9540  3=7703 

9550  0*38423 

9560  P#*" 654320" 

9580  GOSUB5000 

9590  FGRZ*7680TO770 1 :  POKEZ, 102 : POKEZ+30720, VAL 
<MID$CP$, INT<RND<0>#6>+1 , 1 >  > : NEXT 
9600  F0RZ*8 1 64T08 1 85  =  POKEZ ,102: POKEZ+30720 , VAL 
<MID$<P$, I NT  <  RND  <  0  >  *6  > + 1 , 1) > : NEXT 
9620  FORZ«7680TO8 1 64STEP22 : POKEZ , 1 02 : POKEZ+30720 , 0 : POKEZ+2 1 , 

1 02 • POKEZ+3074 1 , 0 : NE  XT 
9670  FORU* 1 T025-2#G 

9680  R*  I  HT  <  RND  <  0  >  #458  >  +7704  :  R2-R+30720 
9685  P0KE36879 , 1 HT (. RND <  0  !>  *  1 27  >  + 1 
9690  W*PEEK<R> 

9700  I FW* 1 02THEN9680 

97 1 0  P0KE36878 , 1 5 • P0KE36875 , 1 40+  < R-7704  >  X4 : P0KE36878 , 0 : P0KE36875 , 0 
9720  POKER , 90 • P0KER2 , VAL  <  M I D*  <  P* , I NT  < RND  < 0  > *6 >  +  1 , 1 > > 
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9730  NEXT 

9733  P0KE36879,26 

9735  FQRL=1TO50 

9736  POKES 162, 81 

9737  P0KE3S8S2, 0 

9738  FORT*1TO10:NEXT 

9739  P0KE38832, 5 

9740  NEXT 

9745  FORT*! TO 1000 : NEXT 
9750  T I $*"000000" 

9780  P0KE38882, 2 
9999  RETURN 
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Hangman  1 1 

Here's  another  version  of  Hangman.  In  this  one,  the  computer  picks  the  word  for  you  to 
guess.  Change  the  words  in  the  DATA  statements  from  line  370  to  add  your  own  vocabulary. 
The  number  of  “lives”  you  have  is  related  to  the  number  of  letters  in  the  word  to  be  guessed. 


10  REM  HANGMAN- 1 1 
20  FORG* 1 TORNB  < 1 ) #22+ 1 
30  REABA* 

40  NEXT 
50  V*0 

60  N*LEN<A$> 

80  F0RG=1T0N 

30  BCG>*ASC<MIB$< A$, G< 1 >  > 

100  B<G)*B<G> 

ii0  next; pr i nt "mar 

120  Q* I NT  < N+N/2+ . 5  > : PR I NT " VOU  HAVE " Q " CHANCES " 

130  F0RJ-1T0Q:V«V+1 
140  GOSUB410 
150  IFH*NTHEN300 

190  PR  I  NT  "  fWSMWJ"  Q+ 1  -  J  "  CHANCES  LEFT" 

200  INPUTC* 

210  F*ASC<X$> 

220  FQRG*1TQN 

230  I FB  <  G  >  »FTHENB  <  G?»0 : J* J- 1 
240  NEXT: NEXT 
250  G0SUB4 1 0 

260  PR  I  NT :  PR  I  NT  "  SBSQRR V  >  TIMER'S  UP  11" 

280  GOTO330 
300  REM**NIN** 

310  PRINTTAB<5>  "WtWJUEBLlL  HBfflOSWnEiS!  " 

320  PRINT"WVOU  GOT  THE  WORB  IN"V-1 
330  PR  I  NT  "WIT  WAS  »I"A$ 

340  GOTO340 

370  BATA "TERROR" , "POSTURE" , "ELEPHANT" , "STATUS" , "BACHELOR" , "ANSWER" 
380  B ATA " TENOR 1 V BANANA " >  "FI GURE "> "IBIOT",  " N ARCOT IC" >  " PATHET I C " 

390  BATA " W I 2ARB " >  "WI CKEB " >  "WI ZENEB " >  "EVIL " 

400  B  AT  A  "  PART  ICLE"  >  "ATOM"  >  "  ELECTRON  " ,  "  START  " , '» FAM I SHEB  " ,  "  EAGLE  " 

410  H«0 

415  PRINT " WWW" 

<117  PflPPasITflKI 

420  I FB  <  E  >  *B  <  E  >  THENPR.  I  NT"  W-  " ; 

430  IFB<E>OB<E>THENPRINT"B";CHR$<B<E>>; :H*H+1 
440  NEXT: PRINT 

460  PRINT' I FHONTHENPR I  NTH  "CORRECT  LETTERS" 

480  PRINT 
490  RETURN 
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Antihang 


This  is  Hangman  in  reverse.  The  computer  tries  to  guess  the  word  you  have  chosen. 

When  you  run  the  program,  you'll  be  asked  HOW  LONG  IS  THE  WORD  YOU  HAVE  CHOSEN? 
Enter  the  number  of  letters  in  the  word— if  your  word  were  APPLE,  you'd  enter  5— and  then 
press  RETURN.  The  next  thing  you'll  see  on  the  screen  is  five  inverse  blue  dashes,  one  for  each 
letter  in  the  word,  as  well  as  LIVES  LEFT  -  10.  This  is  followed  by  I  GUESS  and  the  letter  the 
computer  has  guessed.  If  the  letter  is  one  which  is  in  the  word,  say  A,  then  you  enter  1 ,  to  show 
it  was  the  first  letter  in  your  chosen  word.  If  the  letter  is  not  in  your  word,  you  enter  0.  Assuming 
the  computer  guesses  A  as  the  first  letter,  you  enter  1  and  press  RETURN.  Immediately,  the  five 
inverse  dashes  are  reprinted,  but  this  time  the  first  one  has  changed  into  an  A.  The  words  I 
GUESS  A  are  still  there,  to  cater  for  double  letters.  Because  there  are  not  two  A's  in  APPLE,  you 
enter  0 and  press  RETURN. 

Here's  how  one  game  I  played  with  the  VIC  progressed.  I  was  thinking  of  the  word  START: 


T- 5  LIVES  LEFT  -  10 

- T 

T  -  2  LIVES  LEFT  -  1 0 

-T--T 

T- OLIVES  LEFT  -  10 

-T--T 

E- OLIVES  LEFT -9 

-T--T 

A- 3  LIVES  LEFT -9 

-TA-T 

A  -  0  LIVES  LEFT  -  9 

-TA-T 

0 -OLIVES  LEFT -8 

-TA-T 

R  -  4  LIVES  LEFT  -  8 

-TART 

R  -  0  LIVES  LEFT -8 

-TART 

S  -  1  LIVES  LEFT -8 

START 

I  WIN  I  WIN  I  WIN 


You'll  find  that,  generally,  the  longer  the  word,  the  better  the  chance  the  VIC  has  of  working  it 
out.  Antihang  is  based  on  a  program  written  by  Toni  Baker. 


10  REMETflONR I SHDLFCMUG YPWB JKQX VZ 
20  L=10  '•  Q=45 

30  PR  I  NT "  rifilflJCWHOW  LONG  IS  THE  WORD  VOU  HRVE  CHOSEN?" 
40  I NPUTN : PR I NT " H" 

30  DIMFK26}  *  C<N>  .>  GCN> 

110  FQRZ*1T026 

120  fl<Z>*PEEK<4101+Z> 

130  I FZCN+ 1 THENG  <!  Z  ?  *0 
140  NEXT 

150  Z= I NT ( RND  C.  0  )  #3  )  ■+•  1 
160  B$«CHR$<FK.Z)  > 

170  FGRJ=ZTQ23 
180  FKJ)=FK J+i > 

190  NEXT 
200  fi=0 

210  PRINT"^®®»»***|gB1'; 
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220  F0RZ*1T0N 

230  PRINTCHR*<G<Z)>; 

240  NEXT : PRINT 

280  PR  I  NT  "  (SWML  I VE8  LEFT  ~"L 

290  PRINT"W»I  GUESS  "B* 

300  INPUTB1 
310  IFB1*0THEN350 
320  (=11*1 

330  GCBl>*RSC<Bf> 

340  GGTO200 

350  F=0 

360  FORZ-1TON 

370  I FG  •'  Z  >  *QTHENF *  1 

380  NEXT 

390  IFF*0THENPRINTM)®!>*»I»»I  WIN !  !  "  '•  GOTO390 
400  I  FFl  1  ss0THENL*L~  1 
410  fll*0:lFL>0THEN150 
420  PRINTn&i!II»*iNafVOU  WIN!  !  "  :GOTO420 
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T  reacle  Balls 


In  this  game  of  logic  and  deduction,  you  roll  balls  down  a  series  of  chutes  numbered  one  to 
seven.  There  are  three  pools  of  treacle  in  the  chutes.  They  may  all  be  in  the  same  chute,  in  three 
different  chutes,  or  two  in  one  and  the  third  in  a  different  chute.  You  have  six  seconds  (guesses) 
to  work  out  where  the  treacle  lies. 

When  a  ball  hits  treacle,  it  either  sinks  (you'll  be  told  THE  BALL  VANISHED),  or  it  is  deflected 
to  the  chute  to  the  right  or  to  the  left  of  the  one  it  is  in.  If  there  is  a  treacle  in  two  adjoining 
chutes,  they  may  both  act  on  the  ball  before  it  reaches  the  end,  confusing  you  to  some  extent. 

If  you  wish  to  guess  where  the  balls  are,  you  enter  '8'  instead  of  a  chute  number,  and  then 
enter  your  three  guesses.  You  will  be  told  how  many  you  had  to  correct.  If  you  think  there  are 
two  pools  in  the  same  chute,  you  must  enter  the  number  twice  in  your  guesses.  If  you  fail  to 
guess  where  the  treacle  lies  within  six  seconds,  you'll  be  told  where  it  is,  and  the  game  ends.  If 
you  wish  to  make  the  game  a  little  easier  the  first  few  times  you  play  it,  change  the  six  in  line  70 
to  a  higher  number. 


10  REM  TREACLE  BALLS 
20  REM  POSITION  TREACLE 
30  F0RA*1T03 
40  B<A)=>INT (RND(  1 )#7)+l 
50  NEXT 

60  REM  COUNT  GUESSES 
70  F0RH«6T01  STEP-1 
80  PRINT'Tlft'QU  HAVE "H" SECONDS" 

85  PRINT"MENTER  BALL  CHUTE  NO." 

86  PR I NT "OR  8  IF  VOU  THINK  VOU" 

87  PR I NT "KNOW  WHERE  THE" 

88  PR I NT "TREACLE  LIES" 

90  INPUTS : IFC»8THEN5000 
95  GOSUB3000 

100  D«=1 

110  I FB  <  D ) “CTHEN 1 000 

120  IF  D<3  THEN  D*D+1 = G0T01 10 

125  GOSUB4000 

130  PRINT"3THE  BALL  ROLLED" 

140  PR I NT "OUT  0F"C 
150  FOR  2* 1 TO2000 : NEXT 
160  NEXTH 

170  PR  I  NT  "  JSISORRY  >  TIME  IS  UP" 
180  PRINT")WrHE  TREACLE  WAS  IN" 
190  FOR  A»1T03 
200  PRINT  BCA) 

210  NEXT 
220  END 

1000  REM  TREACLE! 

1010  IF  R.ND<n>*.9  THEN  2000 
1020  IF  0=1  THEN  C*2: GOTO 100 
1030  IF  0=7  THEN  0=6= GOTO 100 
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1040  F«INT <RND< 1 )#2>-l 
1060  C*C+F 
1075  GOTO 100 
2000  REM  LOST 

2010  PRIMT"WTHE  BALL  VANISHED" 

2020  GOTO 150 

3000  PRINT" MfiWWT TAB  <  3+C  )  C 
3015  F0RZ«1T05 
3020  FOR V* 1 TO 1 0#Z  =  NEXT V 
3030  PRINT  TAB<5>;  "nfTTTTTTl  " 

3040  NEXT 
3050  RETURN 

4000  PR I NTTAB  < 3+C > i " 3" j C " TOP 

4030  RETURN 

5000  REM  TRIAL  GUESS 

5010  PRINT"XHOK;  WHERE  DO  YOU" 

5020  PR I NT "THINK  THE  TREACLE" 

5030  PR I NT "POOLS  ARE?" 

5040  INPUTGK1>,Q<2>,Q<3> 

5050  SR«0 

5055  FORV* 1 T03 *•  W  <  Y  >  »B  <  V  >  : NEXT V 
5060  F0RN-1T03 
5070  F0RM*1T03 

5080  IFO<M>sB<N> THENSR=SR+ 1 : B<N>*0 : Q<M>«0 
5090  NEXTM,N 

5105  F0RP=1T03 

5106  B<P)*W<P> 

B5107  WPWT 

5110  IF  SR>2THEN  5150 

5120  IF  SR>0  THEN  PRINT  "YOU  GOT "SR" RIGHT" 
5130  IF  SRs0  THEN  PR I NT "WRONG,  WRONG,  WRONG" 
■5140  ROTG1F50 

5150  PR  I  NT  "WES,  YOU  GOT  THEM" 

5160  PRINT "WITH"H" SECONDS  TO  GO" 
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Craps 


Craps  is  a  relatively  simple  gambling  game  played  with  two  dice.  The  simplicity  of  the  game 
itself  is  somewhat  offset  by  the  complexity  of  the  betting  possibilities.  To  make  it  easier  to 
learn,  we've  included  two  versions  of  the  game:  Minimalist  Craps  to  show  you  the  game  of 
craps  in  action  and  SF  Craps  which  enables  you  to  bet  following  some  casino-like  rules. 

As  you  can  see,  the  first  listing  is  very  short  indeed.  Enter  and  run  it,  and  you'll  then  find  it 
much  easier  to  understand  the  description  of  the  game. 

To  play,  you  roll  two  dice  and  add  up  their  pips.  If  you  roll  a  seven  or  an  eleven  on  the  first  roll 
(called  a  natural)  you  win,  and  that  round  is  over.  If  you  roll  two,  three,  or  twelve  on  the  first  roll 
(called  craps),  you  lose.  Rolling  four,  five,  six,  eight,  nine,  or  ten  on  the  first  roll  becomes  your 
point.  The  aim  of  the  game— assuming  it  has  not  ended  with  the  first  roll— is  to  roll  your  point 
again,  before  you  throw  a  seven.  When  you're  sure  you  understand  these  instructions,  look 
again  at  the  first  Craps  program  in  action  to  relate  what  you've  read  here  to  the  program. 

Once  you've  understood  Craps  so  far,  you're  ready  to  enter  the  deluxe  version  of  the  game, 
SF  Craps.  In  this  version,  you're  introduced  to  Craps  betting.  You  can  bet  on  the  round  overall 
for  a  win  ("Pass'')  or  on  the  round  overall  for  a  loss  ("Don't  Pass").  If  the  game  lasts  more  than 
one  roll  of  the  dice,  you  can  have  a  side  bet  on  each  subsequent  roll,  betting  that  a  particular 
number,  including  seven  if  you  like,  will  come  up.  You  do  not  need  to  make  the  side  bets  if  you 
prefer  to  keep  the  game  fairly  simple. 


10  REM  MINIMFlLIST  CROPS 
12  G=0:W=0=L=0 
15  0=0+1 

20  B$=  "  YOU  ROLLED"  :  PR  I  NT  "IT 
27  PR I NT : PR I NT " W I NS " W , " LOSSES " L 
23  PRINT: PR I NT "GAME  NUMBER "0 
30  GOSUB200 
40  IF0=70R0=1 1THEN240 
50  I  F0=2QR0=3QR0=  1 2THEN230 
55  P=fl 

60  PR  I  NT  '•  PR  I  NT  "  VQUR  POINT  IS"P 

70  GOSUB200 

80  IFfl=PTHEN230 

90  IFO=7THEN240 

100  FORT  = 1 TO 1 000 : NEXT 

110  PR  I  NT  "Cl"  ;GOTO60 

200  0= I NT  <  RNB  <  1  >  *6+RND  <  1 )  *6+ 1  > 

210  FORT=1TO2000 : NEXT 

215  PRINT: PRINTED 

220  pETI  IRM 

230  PR I NT "YOU  WIN" : W=W+1 =  GOTO250 
240  PR I NT "YOU  L0SE":L=L+1 
250  FORT  = 1 TO 1 000 : NEXT 
260  GOTO 15 


10  REM  SF  CROPS 
15  PRINT":]"  :G0SUB  770 
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20  MO*20 
30  GOTO 115 

40  PR  I  NT "  IlfiOTSPRESS  RETURN  TO  ROLL" 

50  GET  A$ : IFRf*" "  THEH50 

60  fl=INTCRND<0>*6)+INT<RHDC0>*6>+2 

70  GOSUB  770 

80  PRINT"J£8fi'OU  ROLLED "R 

82  FORT*1TO500=NEXT 

85  RETURN 

100  IF  M0<1  THEN  PRINT "8VOU/RE  8BROKE !  "  :  GOSUB770 :  GOTO  1 00 
110  FORT  * 1 TO5000 : NEXT  T 

115  PR I NT " IT  : PR I NT : PR I NT " WOU  STRRT  ROUND" : PRINT  TAB<8> "WITH  8$ "MO 
120  PR  I  NT "  JS8PLRCE  VOUR  BET" 

130  PRINT'^'P'S  TO  PLACE  BET"  :  PR  I  NT  "ON  PASS  LINE." 

140  PR I NT" JOT' D' 8  FOR  DON'T  PASS" 

150  GET  B$ : IF  B$*""  THEN  150 

155  IF  B*<>"P"  AND  B$0"D"  THEN  150 

16©  B*0 

170  INPUT"MSIZE  OF  BET" ; B 

180  IF  B>MO  OR  B<1  THEN  GOTO  170 

190  GOSUB  40 

200  IF  A07  AND  AO  11  THEN  GOTO  310 
210  REM  NATURAL 

220  PRINT"'JSIiYOU  ROLLED  A  NATURAL" 

230  IF  B$«"D"  THEN  270 
235  PR I NT "ON  PASS  BET" 

240  PR  I  NT "  PMWfr’OU  WIN  $"B 

250  MO-MQ+B 

260  GOSUB  770 : GOTOl 10 

270  PRINT  "ON  DON'T  PASS  BET" 

280  PRINT  "WMfi’OU  LOSE  $"B 
290  MO=MO-B 
300  GOTO 100 

310  IF  A02  AND  A03  AND  AO  12  THEN  350 
320  GOSUB  770 :  PR  I  NT  =  PR  I  NT  "8SF  fSCRAPS!" 

325  FOR  T=1TO100  •'  NEXT  T 
330  IF  B$»"P"  THEN  280 
340  GOTO240 

OBjft  PTssfl 

355  IF  M0<1  THEN  100 

360  PRINT "JflVOU  NOW  HAVE  $"MO 

370  PRINT"]«Wi'OUR  POINT  IS  "PT 

380  PRINT"MSINPUT  NUMBER  FOR" : PRINT "SIDE  BET.  OR  PRESS" 

390  PR  I  NT "  &SRETURN  SFOR  NON-BET" 

400  K$«"":C*0 
410  INPUTK* 

420  IF  K$«""  THEN  490 
430  C«VALCK$> 

440  IF  C<2  OR  012  THEN  400 
450  INPUT "HOW  MUCH". ;D 
470  GOSUB  710 

480  IF  D>MO  OR  D<1  THEN  450 
490  GOSUB  60 
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497  IFA*7THEN630 

300  IFA*PTTHENPRINT"§»i'OU/VE  MADE  VOUR  POINT"  :  IFO0THEN230 

520  IFO0THEN355 

530  IF  COR  THEN  580 

540  PR I NT "AND  VOU  WIN  fl  SIDE" 

550  PRINT  "BET  OF  $"WI 
560  MO-MO+WI 
563  I F A»PTTHEN230 
570  G0T0355 

580  PR I NT "VOU  LOSE  $"WI 
390  PR I NT "ON  VOUR  SIDE  BET" 

600  MQ*MQ-WI 
605  IF  M0<1THEN  100 
607  IFA-PTTHEN230 
610  G0T0355 

630  PR I NT"! VOU  ROLLED  7...." 

640  I FB$* " D " THENPR I NT " ON  DON'T  PASS  BET":GOTO240 
660  PR I NT "ON  PASS  BET":GOTO280 
710  REM  ODDS/WIN 
720  WI*D 

730  IF  A*6  OR  A*8  THEN  WI*INT<<8#B/3>+.5> 

740  IF  A*5  OR  A*9  THEN  WI*INT<<5#D/2>+.5> 

750  IFA*4  OR  A“9  THEN  WI*2#D 
760  RETURN 
770  REM  SOUND 
780  POKE  36878; 15 

790  FORT* 10  TO  180  STEP  RND<l>#10+.5 

800  POKE  36876; 255-T 

820  NEXT  T 

830  POKE  36876; 0 

840  POKE  36876 ;0 

830  RETURN  s  ^ 
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Caveman 


As  the  Mighty  Caveman,  you  must  survive  in  the  labyrinth-like  cave  system  for  25  minutes, 
battling  monsters  and  finding  treasure,  while  trying  to  avoid  quicksand,  and  blundering  into 
walls  and  blocked  caves.  You  have  five  arrows,  and  each  monster  you  kill  gains  you  extra 
wealth.  There  are  also  magic  caves,  which  move  you  randomly  through  the  system. 

This  program  occupies  all  but  70  bytes  of  the  memory  on  the  standard  VIC  so  there  is  no  room 
for  elaboration.  To  make  sure  as  many  features  as  possible  could  be  squeezed  in,  PRINT  state¬ 
ments  are  terse  to  the  point  of  rudeness. 

You  start  in  cave  55.  You  are  shown  a  view  of  the  system  from  above  at  the  beginning  of  the 
program  and  from  time  to  time  while  a  game  is  underway.  The  key  to  the  cave's  contents  is  H  = 
you  (for  human),  $  =  gold,  Q  =  quicksand,  a  diamond  shape  =  a  magic  cave,  a  grey  square  =  a 
blocked  cave,  and  a  full  stop  =  an  empty  cave. 

You  can  move  up,  down,  right,  or  left  one  square  at  a  time  (which  you  do  by  entering  N  = 
north,  S  =  south,  E  =  east,  or  W  =  west).  You  can  also  choose  to  shoot  into  an  adjoining  cave, 
which  you  do  by  entering  an  F.  Your  cave  computer  will  warn  you  when  things  are  nearby 
(NEARBY  IS  .  .  .  GOLD  is  one  typical  message),  but  being  a  Cromagnon  VIC  20BC,  it  tends  to 
malfunction  so  you  only  know  of  the  contents  of  one  of  the  surrounding  caves,  rather  than  what 
is  in  all  of  them.  As  well,  it  does  not  tell  you  which  of  the  surrounding  caves  it  is  talking  about. 

A  cave  is  emptied  after  you  leave  it,  so  you  cannot  revisit  a  cave  containing  gold  over  and  over 
again  to  enrich  yourself.  If  a  beastie  gets  you  or  if  you  fall  into  quicksand  or  run  out  of  air,  the 
game  ends  with  a  printout  of  the  system. 

When  you  run  the  program,  you'll  see  the  words  CAVE  55  at  the  top  of  the  screen.  If  your 
Cromagnon  VIC  20BC  has  any  message  for  you,  it  will  appear  next,  followed  by  a  number  which 
is  the  minutes  of  air  you  have  left,  and  then  a  prompt  questionmark.  The  computer  is  waiting  for 
your  direction  input  (N,  S,  E,  or  W)  or  a  decision  to  fire  an  arrow  (F).  If  you  try  to  go  where  there 
is  no  path,  a  message  BLOCKED  CAVE  will  appear,  and  you'll  have  to  enter  a  new  direction.  If 
you  say  you  wish  to  fire  an  arrow  when  your  five  are  used  up,  you'll  be  told  you're  out  of  arrows 
and  be  asked  for  a  new  instruction.  Good  hunting,  Caveman. 

30  DIMfl<100>  :  H=0  :  Q=0 :  L=Q  :  G»0  :  FlR=6 
40  P0KE36878, 15 
50  FORE* 1 TO i 00 :  FK  B  >  =46 

60  I FB< 1 2ORB>90OR 1 0* I NT  CB/10 > =B0R 1 0# I NT  <B/10 > =B- 1 THENfl  <  B  > - 1 66 
100  NEXT 

1 1 0  FORE® 1 T05 : RESTORE : F0RD= 1 T05 

115  Z«INT<RND<1>#76>+12: IFfKZ>-166THEN115 

120  REflBC :  FK  Z ) «C 

130  NEXT: NEXT 

140  DfiTR166,218,77,81,36 

150  F0RB=1T08:REFIDP<B>  : NEXT: BFlTFl-1 1,-10, -9,-1, 1,3, 10,11 
230  E=55 
240  FKE!>=72 

245  PR  I  NT  "  TSStiffflWM"  >  '■  GO8UB9040 
250  Q»INT<RND<1>#7> 

305  I FQ-0RNDEO55THENGOSUB9040 
310  PR  I  NT  "  VE  "  E 
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320  I  FG>0THENPR  I  NT  "  'Wm  "  G  "  GOLD  " 

330  GOSUE5000 
340  PR I NT "  KWS" 25-H 
350  IHPUTZ$:IJ=0 

360  I FZ$= " N " RNDR  <  E- 1 0  >  * 1 660RZ** " S " flHDfl  <  E+ 1 0  > * 1 660RZ$* 

" E " RNDR (.  E+  1  >  * 1 66THENU* 1 

362  I FZ*« " W " RNDR  <  E- 1 > ■ 1 66GRU* 1 THEHPR I NT "  StoBLOCKED  CRVE " 

: FORT-1TO2000 : NEXT : GOTO350 
375  R<E>*46: IFZ$« " N " THENE-E- 1 0 
380  IFZ$*"S"THENE*E+10 
390  IFZ*-"E"THENE-E+1 
400  I FZ*-"W" THENE-E- 1 
405  I FZf* " F " THENGOSUB6000 
410  I Ffl  <  E ) *2 1 8THENG0SUB 1 000 
420  IFfi<E>-77THENOOSUB2000 
430  I FR  <  E  >  *8 1 THENGOSUB3000 
440  I FR  <  E  > “36THENGOSUB4000 
450  H=H+1 : IFH*25THENQ«9 : GOTO9000 

460  FORT*RND < 1 > #40+ 1 30TO 1 77STEPRND < 1) # 1 9+2  =  P0KE36375 , T : FORW* 1 TOT : NEXT 
465  P0KE36876 , 200-T :  NEXT :  P0KE36875 , 0 :  P0KE36876 0 
470  GOTO250 

1000  PR  I  NT  "  XM0NMRG  I C !  !  " 

1 020  FORU* 1 TO300 : P0KE36879 , RND ( 1 > #24+8 : P0KE36876 , 

RNDC 1 >#10+240 : NEXT  s P0KE36S79, 29 
1 025  P0KE36876 ..  0  :  R  <  E  >  *46 

1 030  E* I NT  < RND  < 1 >  #76+ 1 2  > • I FR  <  E  > * 1 66THEN 1 030 
1040  RETURN 

2000  PR  I  NT  "  SfiiMONSTER  HERE" 

20 1 0  FORT* 1 TO 1 000 : NEXT 

2020  M-RND  <  1  >  :  XFM< .  2THENPR I  NT  "  JSWI-T  RIJNS  RWflV :  RETURN 
2030  PR I NT " MWI T / S  SEEN  VOU. . . " 

2040  FORT- 1 TO 1 000  =  NEXT 

2050  I FM> . 85THENPR I NT " WRND  FLEES " FORT* 1 T0999 : NEXT : RETURN 
2060  PR I NT " XMRND  ERTS  VOU ! ! " : FORT* 1 TO990 : NEXT : Q-9 : GOTO9000 
3000  FOR J* 1 TO20 : PR I NTTRB C  5# J  > ; "  MNHORRORS ..." 

3020  FORU*230TO280STEP 1 0  :  P0KE36879 * RND  < 1 >  #24+8  =  P0KE36876 , 1 00+U/3 

3025  NEXT : P0KE36879, 29 : NEXT 
3040  PRINT"  tinramMMQUXCKSRND!  !" 

3045  POKE36S76,0 
3050  FORT* 1 TO 1 000 : NEXT 

opiK-.e;  nsq 

3060  GOTO9000 

4000  FORJ-1TO20 :  PR  I  NTTRB  <  5#  J>  ;  "OTMERLTH  !!!'"•  FORT*  1  TO  10#  J  =  NEXT ;  NEXT 
4010  K*INT<RND<1>#100>+100 

4020  FORU*  1  TO  1 00  =  P0KE36879 ,  RND  <  1  >  #24+8 :  P0KE36876  .■ 

RND  a  >  # 1 00+ 1 00 : NEXT : P0KE36879 , 2  9 
4025  POKE36S76..0 

4040  PR  I  NT  "  3SP»HS0LD  WORTH  *"K" !!" :  G*G+K :  FORT*1TO3000 :  NEXT :  RETURN 
5000  V*1 

5005  L*fl  <.  E+P  <  V  >  > 

5006  IFLO46THEN5028 

5007  IFV<8THENV«V+l:GOTO5006 
5010  I  FL*46THENRETIJRN 

5020  PRINT")WDinWERRBV  IS..." 

5030  I FL* 1 66THENPR I NT " NO  PRTH" 
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5040  I FL*2 1 8THENPR I HT " MAG I C " 

5050  I FL*77THENPR I NT " MONSTER " 

5060  I FL*8 1 THENPR I NT " QU I CK3 AND " 

5070  I FL*36THENPR I NT " GOLD " 

5080  FORT* 1 TO3000  =  NEXT  =  RETURN 

6000  AR*AR-1 : I FRR*0THENPR I NT " NO  ARROWS" : RETURN 

6010  PR INTAR "ARROWS" :38*0 

6020  INPUT"J®!n'0".;8$ 

6030  IF3$*"N"ANDACE-10>=77THENSS*1 = VT=E~10 
6040  I FS#= " S " ANDA  C  E+ 1 0  >  *77THENSS* 1 :  VT*E+ 1 0 
6050  IF8$«"E"ANBACE+1>*77THENSS*1 : YT*E+1 
6060  I F8$* " W " ANDA  C  E- 1 > *77THENS8* 1 :  VT=E- 1 
6070  I F8S*0THENPR I NT " NO  LUCK" :OOTO6120 
6080  PRINT")flHIT" 

6090  FORT* 1 T0999 : NEXT : I FRND U  » . 3THEN6 1 1 0 

6100  PRINT"KILLEB" : ACYT>«46 : G*G+INTCRND< 1 >*100) =GOTO6120 

6110  PR I NT "WOUNDED" 

6 1 20  FORT*  1 TO3000 :  NEXT  ••  RETURN 
9000  I FQ*9THENGOTO90 1 5 
9010  PR I NT "NO  AIR  LEFT" 

9015  PRINT "W)®*I^URV I VED"H" MINUTES  FOUND  $"G"OF  GOLD" 
9040  ACE >*72 
9050  FORJ*1TO100 
9060  PRINTCHRfC AC J>  > .; 

9070  I F 1 m I NT  C  J/ 1 0 >  * JTHENPR I NT 
9080  NEXT'-  IFQ*9THENENB 
9090  RETURN 


T  ranquility  Base 


Here  is  a  short  moon-landing  simulation  which,  despite  its  simplicity,  is  good  fun  to  play  and 
will  certainly  give  you  a  challenging  task. 

You  start  off  around  500  feet  above  the  lunar  surface,  with  a  limited  quantity  of  fuel.  You 
control  the  descent  of  your  craft  by  entering  your  choice  of  thrust  by  pressing  the  number  keys. 
You  have  fairly  tight  limits  within  which  to  land  safely. 

Running  out  of  fuel  before  you  reach  the  ground  or  hitting  the  ground  at  an  unacceptable 
speed  will  cause  you  to  crash.  A  minus  velocity  means  you  are  falling  toward  the  lunar  surface. 
You  may  well  start  off  climbing  away  from  the  moon,  but  its  gravity  will  soon  draw  you  down. 

Once  you've  mastered  the  program  in  its  present  form,  you  may  wish  to  add  a  display,  or 
modify  the  program  in  some  other  way.  Giving  yourself  less  starting  fuel  is  a  good  way  to  make 
the  program  more  difficult.  F%  is  your  fuel,  V%  your  velocity,  and  H%  your  height. 
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READY 


10  REM  TRANQUILLITY  BASE 
20  FX=130+RNDa>*40 
30  VX— 6+RND<l>*20 
40  HX-300-RND<l>#10 
60  PRINT’T]" 

70  PR  I  NT  "  iWMSWliMFIJEL :  "FX 
80  PR  I  NT  "  MS»»**i&/ELOC  I  TV  :  "  VJ4 
90  PR  I  NT  "  I GHT  :  "  H;< 

100  GET  AJS:FQRJ-1TO800:NEXTJ 
110  FX-FX-AX 
120  CX-AX-2 
125  AX-0 

130  HX-HX+VX+CX/4 
140  VX-VX+CX 

145  I FFX< 1 ANDHX< 1 0THEN 1 60 
150  IF  HXM0THEN  60 
160  I F VX>~9AND VX<8THEN  210 
170  PR  I  NT  "  SWCRASHS  ".: 

180  FORT-1TO300:NEXT 
190  GOTO 170 

210  PRINT" rSGREAT  ^LANDING,  SKHIEF" 

220  PRINT: PRINT" FINAL  READINGS  AS  YOU" 

225  PR I NT "TOUCHED  DOWN  ON  THE" 

226  PR I NT "LUNA  SURFACE:" 

230  PR I NT : PR I NT " FUEL : " FX 
240  PR I NT " VELOC I T Y : " VX 

READY. 


Lodestar/3-D  Maze 


You  are  searching  within  a  maze  for  the  precious  lodestar.  At  each  point  in  the  maze,  you'll  be 
told  which  directions  from  your  current  position  are  open.  The  display  takes  the  form: 

MOVE  NUMBER  1 
NORTH:  OPEN 
SOUTH:  WALL 
EAST:  OPEN 
WEST:  WALL 

LODESTAR  INDICATOR  READS  1  200 
DIRECTION? 

NORTH  SOUTH  EAST  WEST  HELP 
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You  enter  the  initial  letter  of  the  move  you  wish  to  make.  H  (for  help)  gets  you  a  view  of  the 
maze  from  above,  with  your  position  shown  as  a  blue  asterisk.  But  although  you  can  see  where 
you  are  within  the  maze,  the  lodestar  is  not  marked. 

You  will  be  pleased  to  see  how  quickly  you  start  really  visualizing  the  maze  in  three  dimen¬ 
sions,  and  how  you  will  be  moving  confidently  through  it.  The  maze  changes  from  game  to 
game,  and  the  lodestar  can  be  in  one  of  three  positions  within  it.  Your  score  at  the  end  depends 
on  how  few  moves  it  took  you  to  find  the  lodestar.  Asking  for  help  costs  you  a  penalty  of  1  5 
moves!  As  you  become  familiar  with  the  game,  you'll  learn  how  to  make  the  best  use  of  the 
feedback  from  the  Lodestar  Indicator. 

If  you  have  extra  memory,  and  you  feel  particularly  ambitious,  you  could  add  a  3-D  display  to 
show  the  view  ahead  of  you  after  each  move.  Lines  550  to  580  determine  which  of  the  three 
positions  will  be  used  for  the  lodestar  in  the  game. 


10  REM  L0DESTAR/3-D  MAZE 
20  GQ8UB530 
30  GOSUB370 
40  M*M+1 

50  PR I NT "  3" ; TAB  C  5  >  J " MOVE  NUMBER "M 

70  print")»north: 

80  IFA<D+1 , E)*8  THENPRINT" SQPENH" 

90  IFACD+l t E)«X  THENPRINT "WALL" 

100  PR I NT "  JWSQUTH : 

110  IF  A<D-1 > E)®S  THENPRINT" SDPENS" 

120  IF  A<D-1 *  EJ^X  THEN  PR  I  NT  "WALL" 

130  PR  I  NT  "KIE  AST: 

140  IFA<D,E+1)«S  THEN  PRINT" SIDPEN1" 

150  IF  A<D,E+1>*X  THEN  PRINT  "WALL" 

160  PRINT"XHJFST : 

170  IFACD,> E-l )*S  THEN  PRINT" S0PEN1" 

180  IF  A<D,E-1>*X  THEN  PR I NT "WALL" 

190  PR I NT " M-ODEST AR  I NB I C ATOR " : PRINT  TAB<6> ; "READS" 100#<ABS<Z~D> 
+ ABS  <  Y-E  D  >  +Y-E 

210  PRINT"OTWB»I8MDIRECTI0N?1" 

211  PR  I  NT "  MSNBDRTH  8SH0UTH  8E»ST  BWEST  BHELP" 

2 1 5  GETAf : I FA$« " " THEN2 1 5 

220  IFA$«"N"ANDA<D+1,E>*XTHEN  215 
230  I FA$» " S " AND A  <  D- 1 . E ) -XTHEN  2 1 5 
240  I F A*« " E " AND A CD^E+1) -XTHEN2 1 5 
250  I FA$« " W " AND A  C  D , E- 1 > -XTHEN2 1 5 
260  IF  A**"H"  THEN  GOSUB370 
270  IFA$*"N"  THEN  D»D+1 
280  IF  A**"S"  THEN  D*D-1 

290  IF  R*«"E"  THEN  E«E+1 

300  IF  A$«"W"  THEN  E»E-1 

310  IF  Z*D  AND  Y*E  THEN  340 

330  GOTO  40 

340  PR I NT "YOU  FOUND  IT  IN" 

350  PRINTTAB<5) ; " a"M"i  MOVES  Ml": FQRJ-1TO100 : NEXTJ  =  GOTO340 
370  REM  HELP 

400  PR  I  NT  "  »B»»*ia»(0RTHS"  =  PR  I  NT 
410  F0RB»15T01  STEP-1 : FORCalTOlS 
420  F0RC*1T015 
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430  IFFKB,C>-X  THEN  PRINT"!H^" .! 

435  IFB*D  AND  C*E  THEH  PRINT  "SST ;  :  G0TO440 

436  IF  A<B,C>«S  THEN  PRINT-’SH"; 

440  NEXT : PRINT : NEXT 

470  PR  I  NT  "  UBMMNISOUTHa"  =  PR  I  NT 
480  M»M+15 

490  FORJ*1TO2000:NEXTJ 
500  PRINT":!"  :A<D,E>*S 
520  RETURN 
530  DIMAC 15, 15) 

550  B=INT<RND<1)#3>+1 
560  2*14= Y»14 
570  IF  B=2  THEN  Y=2 
580  IFB=3  THEN  2=2 
590  X=1 : S=2 

610  FORB«1TO15:F0RO1TO15 

630  A<B,C)»X:IF  RND C 1  >  > . 9THENA B ,  C  ) =8 

640  IF  C<20RC> 1 40RB<20RB> 1 4  THENACB,  C>*X 

650  NEXT: NEXT 

670  D=2 : E=2 

690  F0RF-1T068 

700  READS : READC 

710  A<B,C)=8 

720  NEXT 

730  M=- 1 5 : P0KE36879 , 25 
740  RETURN 

750  DATA  2, 2, 2, 3, 2, 4, 2,5, 2, 6, 2, 7 
760  DATA3,  7,  4,  7, 5,  7,  5, 6, 5, 5, 5, 4, 5, 3, 6, 3 
770  DATA7, 3, 7, 4, 7, 5,  7,  6, 7,  7,  7,  8,  7,  9, 9, 8 
780  DATA9,9, 10,8,10,7,10,6, 10,5, 10,4,8,8 
790  DATA10,3, 11,3, 12,3, 13,3, 14,3, 14,2,7, 10 
800  DATA6, 10,5, 10,4, 10,3,10,2, 10,2,11,2, 12 
810  DATA2, 13,2, 14,6,11,6, 12,6, 13,6, 14,7, 12 
820  DATA 14, 12,8, 12,8, 14,9, 12,9, 13,9, 14, 10, 12 
830  DATA1 1,9,11, 10, 11,11,11,12, 12,9, 13,9, 13, 10 
840  DATA13, 11, 13, 12, 13, 13, 13, 14, 14, 14 
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VINCENT  VAN  VIC 


You  control  a  red  diamond  using  "A"  (up),  "Z"  (down),  ","  (left)  and  (right)  to  draw  out  a 
picture  on  the  screen.  You  can  stop  the  moving  diamond  at  any  time  by  pressing  any  key  except 
the  four  indicated.  You  choose  the  color  you  wish  the  computer  to  use  by  pressing  the  relevant 
color  key.  Pressing  a  color  change  key  will  automatically  stop  the  diamond  moving,  so  it  is 
"drawing”  in  the  new  color  when  it  is  started  again. 

The  computer  starts  drawing  in  white,  so  it  is  invisible  on  the  white  background.  You  can 
therefore  move  the  red  "cursor"  diamond  to  wherever  you  like  before  you  start  drawing.  You 
can  also  move  it  anywhere  on  the  screen  during  the  course  of  a  drawing,  without  leaving  a  line. 
Drawing  in  white  can  also  be  used  to  erase  unwanted  parts  of  the  drawing. 


10  REM  VINCENT  VRN  VIC 

20  REM  MOVE  RED  DIAMOND  WITH  THE  fl  Z  *  .  KEYS 
30  REM  TO  CHANGE  COLOR  PRESS  THE  NUMBER  OF  THE  COLOUR  YOU  WANT 
40  REM  TO  STOP  CURSOR  MOVING  HIT  ANY  KEY  EXCEPT  FOR  CONTROL  ONES 
30  PR I NT " □" : GOSUB9540 
1 000  GETA$ : I FA$= " " THEN A$ 

1 005  I FA *> " 0 " ANDR*< ” 9 " THENU* V AL <  A$  > - 1 
1010  E»C : T»S 

1020  IFA*«"."THENS»S+l:C«»C+l 
1 030  I F A$= " , " THENS-S- 1 =  C*C- 1 
1040  IFA$« "  A " THENS*=S-22 :  C-C-22 
1050  I F A$« ” 2 " THENS*S+22 : C«C+22 
1 060  I FPEEK <  8  > ■ 1 02THENC»E : S=T 
1070  E$=A$ 

1080  FORQ»1TO600 ; NEXT 

1200  POKEE  > U 

1210  POKEC  > 2 : POKES  ..  90 

1230  GOTO 1000 

9540  S*7954 

9550  C*38674 

9560  B$*"" 

9590  FORZ-7680TO7701 : P0KE2. 102 : POKE2+30720, 0  =  NEXT 
9600  F0RZ*8 1 64T08 1 85 : POKEZ .102  =  POKEZ+30720 , 0  =  NEXT 
9620  FORZ-7680TO8 1 64STEP22  =  POKEZ  ,102  =  POKEZ+30720 .. 

0  ••  POKEZ+2 1 , 102  •  POKEZ+30741 , 0  •  NEXT 
9630  U«1 
9640  RETURN 
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Monza 


Monza  is  a  mind-reading  mathematical  wizard.  You  first  think  of  a  number  between  1  and  63. 
Monza  displays  a  series  of  numbers  on  the  screen,  and  you  press  'Y'  if  your  number  is  among 
those  displayed  and  'N'  if  it  is  not.  After  several  screens  of  numbers  have  been  shown,  with 
suitably  magical  sounds,  Monza  will  tell  you  the  number  you  thought  of.  This  makes  a  good 
demonstration  program  to  show  the  VIC  off  to  your  friends. 


10  REM  MONZA;  MATHEMATICAL  WIZARD 
15 

20  X-.5-'N«0 

30  P0KE36879, 25 

40  PR I NT " ZraWTH I NK  OF  A  NUMBER" 

45  PR I NT "BETWEEN  1  AND  63." 

50  PRINT" IWI  WILL  SHOW  YOU  FIVE" 
55  PR I NT " SCREENFULLS  OF" 

60  PRINT  "NUMBERS.  IF  YOUR" 

65  PR I NT "NUMBER  IS  ON  THE" 

70  PR  I  NT"  SCREEN  ji  PRESS  'V'  TO" 

80  PR I NT "TELL  ME.  IF  IT  IS  NOT" 


100  PRINT"Bi«WWfi»»i*PRESS  ANY  KEY..." 
110  GET  At:  IF  THEN  110 

115  PRINT'TDHIP" 

120  PR I NT "HI  3  5  7  9  11  13  15  17" 

121  PRINT"W19  21  23  25  27  29  31" 

122  FRINT"M33  35  37  39  41  43  45" 

123  PRINT"M47  49  51  53  55  57  59" 

124  PRINT  TAB<8>; "JflSl  63" 

130  PRINT 

140  GOSUB  390 

150  pr i nt "raw 

151  PRINT"2  3  6  7  10  11  14  15" 

152  PRINT: PRINT" 18  19  22  23  26  27  30" 

153  PRINT :PRINT"31  34  35  38  39  42  43" 

154  PRINT :PRINT"46  47  50  51  54  55  58" 

155  PRINTTAB<8>; "W59  62  63" 

160  PRINT 

170  GOSUB  390 

180  PRINT"H(®P" 

181  PRINT"4  5  6  7  12  13  14  15" 

182  PRINT"M20  21  22  23  2e  29  30" 

183  PRINT"M31  36  37  38  39  44  45" 

184  PRINT"M46  47  52  53  54  55  60" 

185  PRINTTAB<8>.:"M61  62  63" 

190  GOSUB  390 

200  PR  I  NT  "[TOW" 


85  PR  I 
90  PR  I 
95  PR  I 


."IT  TAB<8>;  "PRESS  'N'." 

NT "Ml  WILL  TELL  YOU  YOUR 
■IT "NUMBER  AT  THE  END" 
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201  PR I NT "8  9  10  11  12  13  14  15" 

202  PRINT"M24  25  26  27  28  29  30" 

203  PRINT"JB31  40  41  42  43  44  45" 

204  PRINT"M46  47  56  57  58  59  60" 

205  PRINTTflB<8> ; "MSI  62  63" 

210  GOSUB  390 

220  PRINT"n««" 

221  PRIHT" 16  17  18  19  20  21  22" 

222  PRINT"M23  24  25  26  27  28  29" 

223  PRINT"M30  31  48  49  50  51  52" 

224  PRINT"M53  54  55  56  57  58  59" 

225  PRINTTFIBC8>  ;  "W60  61  62  63" 
230  GOSUB  390 

240  PRINT"m!W" 

241  PR I NT "32  33  34  35  36  37  38" 

242  PRINT "J839  40  41  42  43  44  45" 

243  PRINT"W46  47  48  49  50  51  52" 

244  PRINT"XB3  54  55  56  57  58  59" 

245  PRINTTFlB<8>  >  "JQ60  61  62  63" 
250  GOSUB  390 

260  POKE  36878,15 
270  FOR  T»1T0255 
280  POKE  36876, T 
290  POKE  36876 , 255~T /2 
300  NEXT 

310  POKE  36878,0 
320  POKE  36876,0 
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330  PRINT " IHVOUR  DUMBER  3WASnS"N 
340  FORT*1TO4000: NEXT: RUN 
330  X=X+X 

395  C$«M I Df  <  B$ , <INT  <  RND  <1 >  #3  > + 1 > ,  1 ) 

400  P0KE36878,15 

410  FOR  T*100  TO  255 

420  POKE  36876, T-N*3 

430  NEXT  T 

440  POKE  36878,0 

450  POKE  36876,0 

455  PRINT 

460  PRINT  C$"IF  YOUR  NUMBER  IS" 

470  PR I NT "HERE  PRESS  'V',  IF" 

480  PRINT  "NOT,  PRESS  'N'." 

490  GET  A$ 

500  IF  A$«""  THEN  490 
510  IF  A*0"N"  THEN  N*N+X 
520  FOR  T=1  TO  500 
530  NEXT  T 
540  RETURN 


Mento 


Mento  is  another  mathematical  mind-reading  wizard.  Just  get  your  friends  to  follow  the  in¬ 
structions  to  be  amazed,  pressing  any  key  after  you  have  followed  the  wizard's  wise  words. 


10  REM  MENTO 

15  POKE  36879, 8: PRINT" fl" 

20  OOSUB1020 

30  PR I NT "MULT I PLY  YOUR  ROE  BY" 
40  PR I NT "TWO,  THEN  ADD  FIVE" 

50  GOSUB1000 

60  PR I NT "NOW  MULTIPLY  THAT" 

70  PR I NT "BY  FIFTY,  AND" 

80  PR I NT "SUBTRACT  365" 

90  OOSUB1000 

100  PR I NT "NOW  ADD  THE  AMOUNT" 
110  PR I NT "OF  CHANGE  IN  YOUR" 
120  PR I NT "POCKET" 

130  GOSUB1000 

140  PR I NT "NOW  GIVE  ME  THE" 

150  PR I NT "NUMBER  YOU'VE  ENDED" 
160  PR I NT "UP  WITH" 

170  INPUTR:R*A+115 
180  BH*AX100 
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190  R»FKBH!t!l00 

200  PRINT "YOU  HOVE "ft" CHANGE. " 
210  PRINT 

220  PR  I  NT  "YOU  ARE  "BX."  YEARS  OLD" 
230  END 
1000  GETA$ 

1010  I FA*  » " " THENGOTO 1 000 
1020  PR  I  NT 'T3" 

1030  PRINT "WWW" 

1040  RETURN 

READY. 


Flip 


Flip  is  an  intriguing  game,  which  provides  quite  a  bit  of  mental  stimulation.  On  a  three-by- 
three  grid  are  randomly  placed  solid  (filled  in)  and  empty  circles.  By  flipping  them  (see  the  fol¬ 
lowing  for  an  explanation  of  the  flip),  you  have  to  end  up  with  a  single  empty  circle  in  the  middle 
position  and  solid  circles  in  the  other  eight  positions. 

You  can  only  flip  a  solid  circle.  You  move  by  entering  the  number  of  the  piece  you  wish  to  flip. 
Flipping  a  corner  piece  causes  those  adjoining  it  to  change  to  their  opposites  (that  is,  a  solid  cir¬ 
cle  opens  up,  an  open  circle  solidifies).  Flipping  middle  circle  on  one  side  changes  the  two  on 
either  side  of  it,  and  flipping  the  middle  one  changes  the  middle  piece  on  all  four  sides.  The  piece 
you  flip  also  changes. 

The  number  of  moves  you  have  taken  so  far  is  displayed.  At  the  end  of  the  game,  the  program 
will  pause  to  tell  you  how  many  moves  it  took  to  solve  it,  and  then  you'll  be  given  a  new  starting 
position. 


5  REM  FLIP 
10  M*0:Q«209:X*215 
20  FGRO1T09 
30  B*INT<RNB<l>+.5> 

35  A<0*Q:  IFB»0THENA<O*X 
40  NEXTC 
50  GOSUB180 
60  N»0 

70  F0RO1T09 

80  I FA  <  C  >  *XTHENN»N+ 1 

90  NEXTC 

100  I  FN«*  1  AND  A  <  5  >  *XTHENGOTO270 
110  M-M+l 

115  PR  I  NT  "WOVE  NO.  "M:  PRINT:  PRINT 
120  PR  I  NT  "WHICH  ONE  TO  CHANGE" 

1 25  GETA# : I FA#* " " THEN 1 25 
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126  N-VflL<H*> : I FN< 1 0RN>9THEN 1 25 

130  GOSIJB310 

140  GOTO50 

170  END 

180  PR  I  NT ’73" 

190  PRINT: PRINT: PRINT 

200  PR  I  NT  "W 1 "  "2"  "3"  "CHR$<fl<  1 )  >  "  "CHR*:<FK2:>  >  "  "CHRf<fl<3>  > 
210  PRINT 

220  PR  I  NT  "ii"  4"  "3"  "6"  "CHRf<fl<4>  >  "  "CHRf  <FK5>  >  "  "CHR*<fl< ’.6)> 
230  PRINT 

240  PR  I  NT  "H"  7"  "8"  "9"  "CHRf  <FK7>  >  "  "CHR*Cfl<8>>"  "CHR*<R<9>> 
250  PRINT 
260  RETURN 

270  PR I NT "SOLVED  IN"M 
280  FORT-1TO3000 
290  NEXT 
300  RUN 

310  IFfl<N)-XTHENRETURN 

320  IFN«1THENF<1)-2:F<2>*4:F<3>"»3:F<4>-10 
330  IFN-2THENF<1>»1 :F<2>-3:F<3>»10:F<4>-10 
340  I FN-3THENF  f.  1  >  “2 :  F  <  2  >  “3 :  F  <  3  >  *6 :  F  <  4  >  =  1 0 
350  IFN-4THENF<1>»1 :F<2)-7:F<3)-10:F<4>-10 
360  IFN*5THENF< 1 >»2  =  F<2>»4 : F<3>»8 : F<4>«6 
370  IFN«6THENF< 1 >«3 : F<2>=9 : F<3>-10 : F<4>«10 
380  I FN-7THENF < 1 > «4 : F  < 2  > *5 : F  < 3  > =8 : F  < 4  > * 1 0 
390  IFN-8THENFC 1 >*7  =  F<2>»9 : F<3>-10 : F<4>-10 
400  I FN^STHENF  <  1  >  =8 :  F  2  )  *5 :  F  <  3  >  *6 :  F  <  4  >  » 1 0 
410  P0KE36878.*  15 
420  F0RG*1T04 
423  PQKE36879 , 24+RND  <  1  >  #8 
427  P0KE36875 ..  1 30+RND  <1  >  *  1 00 
430  IFFKF<G>>*XTHENfl<F<G>>-Q:GOTO430 
440  IFR<F<G>> *QTHENfl < F < G > > «X 
430  NEXTG 

455  P0KE36875 , 0 : P0KE36878 , 0 
460  fi<N>«X 
470  RETURN 


Colormind 


This,  as  you've  probably  guessed,  is  a  color  version  of  Mastermind™.  You  have  to  guess  the 
computer's  pattern  of  four  differently  colored  blobs.  You  indicate  your  choice  of  colors  by  press¬ 
ing  the  color  keys  on  the  VIC. 

The  colors  will  first  print  up  as  the  numbers  you  pressed,  then  change  into  blobs  colored  to 
your  choice.  Following  the  blobs  will  be  your  score,  the  first  number  being  the  correct  color  in 
the  correct  position,  the  second  the  correct  color  in  the  wrong  position.  You'll  get  ten  tries  to 
guess  the  numbers.  Note  that  no  color  is  repeated  within  the  set  of  blobs. 
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If  you're  used  to  playing  Mastermind™  with  colored  pegs,  you'll  quickly  appreciate  that  this  is 
much  closer  to  the  Invicta  game  than  are  computer  versions  that  use  numbers.  At  the  end  of  the 
game,  press  any  key  to  get  a  new  game,  or  'S'  to  stop. 


10  REM  COLOURMIND 
13  PRINT'TJ"  : PRINT : PRINT 
20  GOSUB450 

30  C< 1 >*INT <RND< 1 >#6>+3 
35  Z*2 

40  C<Z>»INT<RNDa>*6>+3 
50  J=1 

60  I PC  <  J  > “C  <  Z  >  THEN35 

70  I FJCZ- 1 THEN J* J+ 1 =  GOTO60 

80  IFZ<4THENZSSZ+1  :  GOTG40 

100  FORH=1TO10:  INPIJTR 

130  F0RZ*1T04 

140  G<Z)»fl-10#XNT<R/10> 

150  fl«INT<fl/10) 

160  NEXT 

163  GOSUB510 

170  B*0 : U=0 

190  F0RZ»1T04 

200  I FC  <  Z  >  OG  <  Z ) THEN230 

210  G<Z>»0 

220  B*B+1 

230  NEXT 

240  F0RZ=1T04 

230  IFG<Z>=0THEN300 

260  F0R.J-1T04 

270  I FC  <  Z  >OG  <  J  > THEN290 

280  W«W+1 

290  NEXT 

300  NEXT 

320  PRINT"  -  ■"B"  I9"N 
370  IFB-4THEN1000 
380  NEXTH 
390  GOTO 10 10 
440  END 

450  fl$»»"  rfeMn" 

460  F0RB*3T08 

470  PRINTMID$<R$,B,l>;B;"i 
473  I  FB«=3THENPR  I  NT 
480  NEXT 

490  PR  I  NT"  88"  =  PRINT 
500  RETURN 
510  PR I NT "H" ; 

515  F0RZ*4T0 1 STEP- 1 
520  PRINTMID$<Rf,G<Z>,  1).:  "• 
530  NEXT 
350  RETURN 

1000  PRINT"Wi'OU  GUESSED  IT!" 
1010  PRINT"WTHE  CODE  WRS:" 
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1015  priht"Wm;trb<5); 

1020  F0RZ*4T0 1 STEP- 1 

1030  PRINTMID$<R$,C(Z>,  !>;"•  ; 

1040  NEXT 

1 050  GETA$ :  I  FA$=  "  "  THEN  1 050 
1060  I Ffl$* " S " THENEND 
1070  RUN 

Cannibal  Charlie 


You  get  to  play  God  in  Cannibal  Charlie.  You  specify  how  many  cannibals  there  will  be  at  the 
start  of  creation,  and  how  many  explorers.  Your  aim  is  to  create  a  society  that  survives  as  long 
as  possible.  Too  few  explorers,  and  the  society  will  die  within  a  month  or  so.  Too  many  ex¬ 
plorers,  and  they'll  overwhelm  the  cannibals,  again  bringing  things  to  halt  within  the  first  month. 
The  program  gives  you  a  population  reading  at  the  end  of  each  month.  There  is  a  "highest 
score"  (i.e.,  longest  survival  of  a  particular  society)  feature,  so  you  can  try  to  out-God  yourself. 
If  you  don't  like  the  scenario,  you  can  change  it  to  foxes  and  rabbits,  or  any  predator/prey  com¬ 
bination  you  prefer. 

The  variable  FD  (food,  set  in  line  100)  determines  how  many  cannibals  can  feast  on  a  single 
explorer.  Although  this  does  not  change  within  a  single  series  of  games,  it  will  be  different  each 
time  you  run  the  program  from  the  beginning. 


10  REM  CANNIBAL  CHARLIE 

20  PRINT" I1MWSWELC0ME  TO  CANNIBAL  WWMCHARLIE" 

30  PR I NT" MSI N  THIS  GAME  YOU  ARE  SGODS,  AND  IT  IS  YOUR  JOB  TO 
SET  UP  THE" 

40  PR I NT "RULES  FOR  CANNIBALS  AND  EXPLORERS  IN  SUCH  A  WAY  THAT 
THE  SOCIETY"; 

50  PR I NT "LASTS  FOR  THE  LONGEST  POSSIBLE  TIME.  WBUPRESS 

ANY  KEY  WHEN" 

60  PR I NT "YOU "RE  READY  TO  PLAY" 

70  GET R* :  I  FA$a?> "  "  THEN70 

80  HI-0 

100  FD«RND<0> 

110  PRINT"rWWBFINE..  GOD.  NOW  HOW  MANY  CANNIBALS  WILL  WE"; 

120  PRINT "START  WITH  «100>?" 

1 25  I NPUTCP : I FCP>99THEN 1 25 
170  PR  I  NT "  riCRNN  I BALS :  " 

180  PRINT"  HPOF’UL  AT  I  ON :  "CP 
190  CP*CF/3 

210  PRINT"JflNQW>  THE!*  EXPLORERS :  MS" 

220  INPUT "POPULATION  <<100>";EP 
225  I FEP>99THEN220 
230  EP*EP/3 

250  PR  I  NT  "  MMWBWPLEASE  STAND  BY" 

260  GOSUB 1 000 : PRINT " IT 
270  DA«0 • 03*03/2 : ES*ES/2 
280  DA*DA+1 
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290  PR  I  NT  "  rJMWMONTH  "DR :  I  FDR*  1 THEH300 
300  IFCP>EP/FDTHENCP*EP/FD 
3 1 0  CP*CP+  <  <  8#CP-CP#EP/3  > #FD  > 


320  EP*EP+  <  <  4#EP-EP#CP  >  # .  0  i  > 

330  pr  i  nt  "  'man"  i  nt  <  cp  ■> "  crnn  i  brls  " 

340  PR  I  NT  "  SMB"  I  NT  <  EP  >  "  EXPLORERS  " 
330  I FEP<2ORCP<2THEN390 
360  GOSUB1000 
370  GOTQ280 

390  IFDR>HS  THEN  HS=DR 
393  I FCP< 1 OREP< 1 THENPR I NT "  D" 

400  PRINT"JOTEND  OF  THE  LINE,  GOD" 
410  PRINT"W3ITHE  SOCIETY  SURVIVED 
420  PRINT"MKBE5T  SO  FRR.  IS"HS 
430  PR I NT "Mi INPUT  'Y'  FOR  R  NEW 
440  GETfi# : I FRf * " " THEN440 
450  IFfl«*"V"THEN110 
460  PR I NT")® YE  BYE,  YOUR 
470  END 

1000  FORY=1TO4000 : NEXT 
1010  RETURN 


FOR "DR "MONTHS" 

CRERTION,  ANY  OTHER  KEY  TO  STOP 
RLMIGHTYNESS" 


Monte  Carlo  Molecule 


The  general  term  "Monte  Carlo  Simulations"  is  given  to  those  simulations  that  show  the 
result  of  chance  factors.  Brownian  motion  and  atomic  diffusion  are  examples  of  random  motion 
that  can  be  emulated  with  a  Monte  Carlo  simulation.  In  Monte  Carlo  Molecule,  a  molecule,  start¬ 
ing  at  any  position  you  designate  on  a  ten-by-ten  grid  (we  suggest  you  try  5,5  as  your  first  one), 
works  it  way  randomly  around  a  small  box  until  it  happens  to  find  its  way  to  the  bottom  right- 
hand  corner  (coordinates  1 0, 1 0)  counting  the  number  of  moves  it  took  to  get  there. 


10  REM  MONTECRRLO  MOLECULE 

20  PRINT'Tl"  :  BIMfi<  10, 10>  : M*0 

25  GOSUB1500 : REM  START 

30  GOSUB500 : REM  PRINT 

33  I FP* 1 0RNBQ* 1 0THEN33 

40  GOSUB 1000= REM  FIND  R  DIRECTION 

60  GOTO30 

300  REM  PRINT 

303  fl<P, Q>=209 : M=M+1 

310  PR  I  NT  "  SWWDSI10VE  NO.  "M 

515  PR  I  NT  "  MBfl" 

520  FORX=1TO10 
330  FORV*1TO10 
540  PR.INTCHR#<R<X,Y)>; 

330  NEXT: PRINT: NEXT 
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360  RETURN 
1000  REM  DIRECTION 
1010  fl<P,Q>*214 
1015  G=0 

1020  T-INT<RNIK0>#8> 

1030  IFT*0THENGOSUB1100 
1 033  I FT *4THENG0SUB 1 1 20 
1040  I FT* 1 THENGOSUB 1 200 
1 045  I FT-3THENG08UB 1 1 30 
1 030  I FT *2THENG0SUB 1110 
1 035  I FT*6THENG08UB 1 1 40 
1060  I FT *3THENG0SUB 1210 
1 065  I FT-7THENG08UB 1 1 50 
1070  I FG®0THEN 1 020 
1080  RETURN 

1100  I FP> 1 THENP*P- 1 : G« 1 
1105  RETURN 

1110  I FP< 1 0THENP*P+ 1 : G» 1 
1115  RETURN 

1120  I  FP>  1  RNDQ>  1  THENP*P-  1  '•  Q«Q- 1 :  G«  1 
1 1 25  RETURN 

1 130  I  FP<  1 0RNDQ<  1 0THENPa»P+ 1 :  Q»Q+1 :  G*>1 
1 1 35  RETURN 

1 1 40  I  FP<  10RNDQ>  1  THENP*P+ 1 :  Q«*Q- 1 :  G«  1 
1145  RETURN 
1150  RETURN 

1 200  I FQ> 1 THENQ*Q- 1 : G* 1 
1205  RETURN 

1210  IFQ<10THENQS»Q+1 :  G»1 

1213  RETURN 

1300  REM  STRRT 

1510  FORX*1TO10 

1320  FORV*1TO10 

1330  R<X,V)«214 

1540  NEXT: NEXT 

1330  PR.  I  NT  "  OMIffSHBCO-ORD  I  NATES  OF" 

1360  INPUT "STRRT  POSITION" ; P, Q 
1370  I  FP<  1  ORP>  1 0ORGK 1  OR.Q>  10THEN1530 
1580  R<P,Q>209 
1590  PR I NT "n" 

1600  RETURN 
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Noughts  and  Crosses 


You  are  the  red  filled-in  circles,  the  computer  the  inverse  blue  crosses.  You  just  touch  the 
number  where  you  want  to  place  a  piece,  and  the  VIC  will  do  the  rest.  The  computer  will  ignore 
any  opening  move  that  is  not  the  center  square  (5).  This  program  is  based  on  one  written  by 
Stuart  Roberts. 


10  REfl  NOUGHTS  FIND  CROSSES 

12  REM 

15  REM  AFTER  PROGRAM  BV  STUART  ROBERTS 

16  REM 

20  FORA*  1 T09  :  B  <  A  !>  *  A :  NEXT 
30  PR  I  NT  "US" 

50  E»0 : 0*0 
60  N*0 

80  PR^NT"300PM 
90  FQRA*1T09 

1 00  I FA*XTHENX*X+3 : PR I NT : PR I NT 
110  IFB<A>*0THEN320 
120  I FB  <  A  >  * 1 0THEN350 
130  PRINTB<A)j" 

140  NEXT 

145  IFB<3>»10ANDB<6>*10RNDB<9>*10THENE*8  =  GOTO160 

146  I FB  <  7  >  *  1 0ANDB  <  8  >  *  1 0ANDB  <  9  >  *  1 0THENE-8  *•  GOTO  1 60 
150  IFN*1THEN380 

160  IFE»8THENPRINT : PRINT : PRINT"  I  WIN":GOTO730 

170  IFGN5THENPRINT : PRINT : PRINT"  IT'S  A  DRAW" : GOTO730 

180  PRINT^JWaiiiiiirvOUR  MOVE?" 

185  GETA#: IFA$*" "THEN 185 
187  Z»VAL<A$> 

190  I  FB  <  Z  >  OZTHEN 1 85 
200  Q*Q+1 

210  I FZ* 1 1 THENB  <  5  >  * 1 0 : GOTO60 
220  N*1 : B<Z>»0 
230  GOTO70 
240  FORA-CTOD 
250  IFB<A>*ATHENB<A)»10 
260  A*A+F 
270  NEXT 
280  GOTO60 
290  I FB  <  5  > “5THEN20 
300  B<D>*10 
310  GOTO60 
320  PR I NT "W  •  a"; 

330  P<A>*1 
340  GOTO 140 
350  PR  I  NT  "3  nm  nSM 
360  P<A>*4 
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370  GOTO 140 
380  G*0 

390  C»1:D»9:F=3 

400  GO3UB580 

410  C»3 : B*7 : F*1 

420  GOSUB580 

430  B*9:F*2 

440  GO8UB580 

450  02:D*8 

460  GOSUB580 

470  C* 1 : D*7 

480  GOSUB580 

490  D*3  =  F»0 

500  GOSUB580 

510  C*4 : D=6 

520  GOSUB580 

530  C«7 : D»9 

540  GOSUB580 

550  0*0+1 

560  IFG*5THEN60 

570  GOTO390 

580  E*0 

590  FORR*CTOB 

600  E*E+P<fl>:fi*R+F 

610  NEXTfl 

620  IFE*3THEN720 

630  I FO*0THENRETURN 

640  IFE-3THEN240 

650  I FG* 1 THENRETURN 

660  IFE*2THEN240 

670  IFG*2THENRETURN 

680  IFE-5THEN240 

690  I FG*3THENRETURN 

700  I FE* 1 ORE«4THEN290 

710  RETURN 

720  PRINT -PRINT: PRINT"  VOU  WIN" 

730  FORT* 1TO3000: NEXT 
740  RUN 


Sepulcher  Organ 


Sounding  like  a  mournful  choir  in  full  cry  in  a  haunted  house,  this  program  lets  you  play  the 
bottom  row  of  keys  of  the  VIC  as  though  it  is  an  organ.  The  notes  corresponding  to  the  keys  are: 

C(Z),  D  (X),  E  (C),  F  (V),  G  (B),  A  (N),  B  (M),  C' (,) 

The  note  you've  pressed  will  continue  until  you  press  another  key.  Touching  any  other  key  from 
those  marked  will  stop  the  sound.  RUN  STOP  will,  of  course,  stop  the  program. 
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Here  is  TWINKLE,  TWINKLE  LITTLE  STAR: 


ZZ  BB  NN  B 
VV  CC  XX  Z 
BB  VV  CC  X 
BB  VV  CC  X 

ZZ  BB  NN  B  VV  CC  XX  Z 


10  REM  SEPULCHER  ORGAN 
12  PRINT" □" 

15  BIMBa6>.C$a6> 

20  F0RR=1T016 
30  RERDB <  A  > : READC# < R  > 

40  NEXTA 

50  DATA 135. "Z" . 147. "X" .  159. "C" . 165. "V" . 175. "B" . 183. "N" 
195. " .  " 

55  DATA225. "Z".228. "X" . 231 . "C" . 232. "V".235. "B".237. "N" 
240."." 


191. "M". 


239. "M". 


60  P0KE3687S. 15 
70  GETfl$ 

80  F0RR*1T08 

90  I FR$*C$ <  R ) THENP0KE36876 .  B  <  A  >  =  P0KE36875 . B  <  fl ) : P0KE36874 . B  <  R  > : 

P0KE36876 . B  <  fl+8  > 

100  NEXTfl 

1101 Ffl$* " . " THENGOTO 1 50 

140  GOTO70 

150  POKE36876.0 

160  P0KE36875. 0 

170  POKE36874.0 

190  GOTO70 


Speedway 

Drive  your  little  car  around  the  track  under  control  of  the  joystick  or  keyboard  ("A”  =  up,  "Z” 
=  down,  =  left,  =  right)  at  a  choice  of  nine  different  skill  levels.  Your  score  is  related 
both  to  the  skill  level  and  to  the  length  of  time  you  manage  to  keep  your  car  going  without  hit¬ 
ting  the  boundaries  of  the  track. 

There  is  a  highest  score  feature,  so  you  can  compete  against  yourself  in  subsequent  runs. 
Your  current  score  is  clocked  up  continuously  in  the  top  righthand  corner  of  the  screen.  Once 
you're  familiar  with  the  game  in  its  present  form,  change  the  racetrack  (from  line  8040)  to  one 
of  your  own  design,  or  write  a  routine  to  produce  a  different  racetrack  each  time  you  play  the 
game. 

10  REM  SPEEDWAY 

15  REM  KEYBOARD  VERSION 

20  HS»0 

30  GOSUB8000 : REM  INITIALISE 
40  GOSUB520 : REM  MOVE  CAR 
50  I F A*0THENGOTO40 
60  GOTO700 ! REM  SMASH 
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100  REM  NOISE 

110  P0KE36878,15 

1 20  P0KE36875 ,  RND  <  0  >  %  1 0+ 1 40 

130  FORT  =  1  TO  1 0#SK 

140  NEXT 

150  POKE36878.0 

160  POKE36875.0 

170  RETURN 

520  REM  MOVE  CRR 

530  GO8UB100 : REM  NOISE 

540  I FPEEK < 7680+Cfi+22#CD  > = 1 02THENR- 1 

560  POKE  < 7680+Cfl+22#CD  > , 33 

570  POKE  <  38400+08+22*01)  ) ,  4 

380  RE=CR:ED=CD 

590  GETfl$ 

600  I Ffl*= " " THENflf =B*  =  GOTO620 

605  I FRfO " fl " THEN I FRfO " Z " THEN I FR$<> " , " THEN I FR$<> " . " THENfl$» " . " 
620  I Ffl*- ” R " RNDCB>2THENCD*CD- 1 
630  I FR$= " Z ” RNDCB<22THENCD=CD+ 1 
640  I Ffi$*  % " RNDCR> 1 THENCR-CR- 1 

650  I  Ffl$-  " . "  RNDCfl<20THENCfl*CR+ 1 
635  B#=fl$ 

656  30=80+ 1 

660  POKE''38400+RE+22*EB>  >  1 

690  RETURN 

700  REMCRRSH 

710  P0KE36878.15 

720  FORV* 1 30TO230STEP5 

730  P0KE36877  > V 

740  FORT*  1 TOV/5  '•  NEXT 

750  NEXT 

760  P0KE36878 , 0 : P0KE36877 , 0 
765  SC=SC*< 10-8K) 

770  PRINT"5»***KBWV0U  SCORED  "SC 

780  I FHS<SCTHENHS=SC 

790  PRINT"!«S»i*iHIGH  SCORE  IS"HS 

800  FORT=1TO2000 : NEXT 

810  GOTO30 

8000  REMINTIRL1SE 
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@005 

@010 

@012 

8015 

8020 

@030 

@040 

8050 

8060 

8070 

@080 

@090 

@100 

8110 


PR  I  NT  "IT 

A*0 : REM  CRASH  FLAG 
GOSUB9000 
SC*0:REM  SCORE 

CA*2 : CD*3 : REM  STARTING  POSITION  OF  CAR 
B$*"."  • 


PRINT 'T] 


PRINT"!*®®® 

PRINT"®®®® 

PR  I  NT  "SKI 

print"®  mm 

PR  I  NT  "IK  m 

PRINT"®® 
PRINT"®®®  m 


8120 

8130 

@140 

@150 

@160 

8170 

@180 

8190 

@210 

8220 

@230 

8240 

8250 

8260 

8500 

9000 

9010 

9020 

9030 

9040 


mm  ®i  ®® 


PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

RETURN 

PR  I  NT  "  rJ#®0fl®ENTER  VOUR  SKILL' 
PRINT"JJLEVEL  <1  TO  9  V 
GETB® • SK*VAL<Bf) 

I FSK< 1 ORSK>9THEN9020 
RETURN 


10  REM  SPEEDWAY 
15  REM  JOYSTICK  VERSION 
20  HS*0 
30  GOSUB8000 

K9A  pni^F'sccrya .  i  "i 

522  FORT*  1 TOSK :  P0KE36876 .130+1 0*T  '•  NEXT 

525  P0KE36878 , 0 : P0KE36876 . 0 

540  I FPEEK < 7630+CA+22#CD >  » 1 02THEN A* 1 

560  POKE  C 76S0+CA+22*CD  > . 35 

570  POKEC38400+CA+22*CD>. 1 

580  AE=CR  ••  ED*CD 

590  GOSUB2000 

600  IFX*0THENX*B 

620  I FCD>2ANDX*22THENCD“CD- 1 

630  IFCD<22ANDX*-22THENCD=CD+1 

640  I FC A> 1 ANDX® 1 THENC A»CA- 1 

650  I  FCA<20ANDXsa- 1  THENCA*CA+ 1 
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635  B»X:iFX*22THENX*~22 

656  SOSC-X :  PR  I  NT  "  *"  SC#  (.  1 0-SK  > 

660  POKE  <  38400+ AE+22#EB  > ..  0 

690  IFR*0THEH520 

710  P0KE36378, 15 

720  FORV® 1 50TO250STEP5 

730  P0KE36877  > V 

740  F0RT*lTQ'iV5 :  NEXT 

750  NEXT 


760  P0KE36878 , 0 : P0KE36877 , 0 
765  SC*SC#a0-SK> 

770  PRINT,,a*»KWT'OU  SCORED  "SC 
780  IFHS<SCTHENHS*SC 
790  PRINT"KJ»»HIGH  SCORE  IS"HS 
800  FORT«1TQ2000 : NEXT 
810  GOTO30 

2000  POKEDD  ,127  =  S3*-  <  <  PEEK  <  PB  >  AND  1 28  >  *0  >  :  POKEDD ,  255 

20 1 0  P-PEEK  <  P  A  >  :  S 1  —  <  <  P  AND8  >  »0  >  :  S2®  <  <  PRND 1 6  >  *0  >  :  SO*  <  <  PRND4  >  *0  > 

2020  FR-<<PRND32>-0>  = X*S2+S3 : Y*SO+Sl 

2030  X»-JS<X+1,V+1> 

2040  RETURN 
8000  REM  I  NT  I  RUSE 
8005  PR  I  NT  "13" 

8007  PQKE36879, 8 
8010  fl«0:REM  CRASH  FLAG 
8012  GOSUB9000 
8015  SC®© : REM  SCORE 

8020  CR*2 : CD«3 : REM  STARTING  POSITION  OF  CAR 


8030 

8040 

8050 

8060 

8070 

8080 

8090 

8100 

8110 

8120 

8130 

8140 

8150 

8160 

8170 

8180 

8190 

8210 

8220 

8230 

8240 

8250 

8260 

8263 

8270 


B=-l 
PRINT": 

PRINT"** 

PRINT"** 

PRINT"*8 
PRINT" 

PR  I  NT  "M# 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

'PRINT"* 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

IFHSO0THENRETURN 

DIMJS<2, 2> : P0KE37139, 0 : DD-37134 : PA«37137 : PB®37152 
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8280  FORT*0TO2  '•  FOR J»0TO2 :  RERDJ5  <  J ,  T  )  *•  NEXT  J ,  T 
8290  DRTA0, -22,0, -1,0, 1,0,22,0 

QacraM  ppTt  IPkl 

9000  PRINT''r3««M)IMiPENTER  VOUR  SKILL" 

9010  PRINT"»»LEVEL  <1  TO  9>" 

9020  GETB$ : 8K-V AL < B$  > 

9030  I FSK< 1 QRSK>9THEN9020 
9040  RETURN 

RERDV. 


Battle 


In  this  board  game,  which  is  somewhat  like  checkers  (except  for  the  size  of  the  board  and  the 
method  of  capture),  you  are  the  bottom  of  the  screen  playing  up,  and  the  computer  is  at  the  top 
playing  down. 

The  computer  always  has  the  first  move.  The  aim,  as  in  checkers,  is  to  capture  your  oppo¬ 
nent's  men,  but  unlike  checkers  you  capture  by  landing  on  a  piece,  rather  than  by  jumping  over 
it.  You  move  by  responding  to  the  prompt  FROM?  with  the  number  across  the  bottom  of  the 
square  you  wish  to  move  from,  then  a  comma,  then  the  number  along  the  side.  You  do  the  same 
for  the  "to"  square.  A  move,  then,  might  be: 

FROM?  6,2 
TO?  5,3 


The  winner  is  the  first  player  to  capture  six  of  the  opponent's  pieces.  Battle  was  written  by 
Chris  Callender,  of  Cove,  Helensburgh. 


5  REM  BATTLE  -  CHRIS  CRLLENDER 
10  DATA  "  181 23456789$" 

20  DATA "1  •&•&•$•!£•  I" 

30  DRTA'^ltiMiMftMe" 

40  DATA" 3P&0&  mm3" 

30  DATA  "418  *  m%  184" 

60  DATA "5  8  18  *  »  5" 

70  data  M  emmmmm  ■■ 

80  data  "  " 

90  data  "  Qmmmmm M 

100  DATA "  Ml 23456789^" 

105  HS*0-CS«0 
110  DIMS$< 12, 13> 

120  FORA«1TO10 
130  READB* 

140  F0RB*1T011 :S$<R,B)*MIDt<B$ 

141  IFINT (RND( 1 >+. 3>*0THEN145 

142  S*<5,3)a"*"  :S$<5,7>*»"  " 


B, 1 > : NEXTB : NEXTA 
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1 45  P0KE36379 ^ 25= PRINT" a« 

150  GGSUB1130 

155  PRINT ‘PRINT: PRINT 

1 57  I  FC8«6THENPR  I  NT  "I  WINN"  :  STOP 

160  INPUT"FROM";R,B 

170  INPUT"TO";C,B 

1 80  I  FRBS  <  fl~C  )  « 1 RNDFIBS  <  B-B  >  ■  1 THEN220 
190  PRINT" ILLEGAL  MOVE" = GOTO160 

220  I  F8$  <  C+ 1 ,  D+ 1 }  * "  •  "  THENHS=«HS+ 1 
230  Sf CA+l B+l >*"  ":8$<C+1,B+1>*"*" 

240  GOSUB1 130 

245  PRINT: PRINT: PRINT: PRINT"  ": PRINT" 

247  IFH8*6THENPRINT"V0U  WINU":STQP 

250  Rf* "  ♦  " : GOSUB 1 000 

260  IFFL*1THEN300 

270  R$*"  ": GOSUB 1000 

300  8*<E,F>»"  " 

305  I FS$  <  E+G , F+H  > ■ " * " THENC8»C8+ 1 

310  Sf<E+G,F+H>«"*" 

320  GOTO 150 

1000  M  E*2 :  F«2 :  G*0 :  H=«0 

1010  FL«0 

1020  IF8$<E..FK>"*"THEN1100 
1040  I  F8$  <  E+ 1 ,  F+ 1  >  *fl$THENG*  1 :  H=*l 

1 050  I F8$ < E+ 1 , F- 1> “RfTHENG* 1 : H«- 1 
1060  I FS$  <  E- 1 , F+ 1 > «fi$THENG*- 1 : H» 1 
1 070  I FS$  <  E- 1 , F- 1 > *fl$THENG«- 1 : H*~ 1 
1 080  I FOO0RNDHO0THENFL- 1 :  RETURN 
1 1 00  E*E+ 1 : 1  FE>  1 0THENESS2 :  F*F+ 1 
1110  I FF> 1 1 THENRETURN 
1120  GOTO1010 

1130  PRINT"*"  :FORR-1TO10: PRINT :F0RB*1T011 
1140  PR  I  NT  "B".:  :  IFS*<R,  B>»"»"THENPRINT"WI" 

1 1 45  I  F8$  <  fl ,  B  >  *  "  8"  THENPR I  NT  "  ■  "  j 
1150  I FS*  <  R ,  B  >  ■  "  THENPR  I  NT  "  SI"  J 

1155  PRINTS*<fl,B>; 

1160  NEXT ‘NEXT 

1170  PRINT: PRINT: PRINT" 8W1E:  "CS.  "VOIJ:  "H8"BS" 
1180  RETURN 
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Reverse 


In  this  brain-boiler,  the  computer  randomly  mixes  the  numbers  from  zero  to  nine,  and  you  have 
to  put  them  in  order  in  as  few  'reverses'  as  you  can.  I'll  explain  what  a  "reverse”  is.  If  the  com¬ 
puter  had  generated  the  sequence  5924861703  and  entered  1  in  response  to  the  question 
"REVERSE  NUMBER?",  the  sequence  would  be  reprinted  as  3071684295.  Entering  4  would 
then  produce  3075924861 .  That  is  the  digits  from  position  four  to  the  end  would  be  reversed. 
As  you  can  see  from  line  1 70,  the  sequence  the  computer  is  looking  for  is  01 23456789.  Get 
the  numbers  in  that  order  and  the  game  is  over.  It  may  well  take  you  40  or  so  moves  to  order  the 
digits,  unless  you're  particularly  clever— or  lucky. 


10  REM  REVERSE 
20  M=1 : X=0  =  fl$«" " : PR  I  NT  "IT 
30  FORT=0TO9 
40  L=INT<RND<l>*10>+48 
50  0=1 

60  IFMID$<fl$,Q,  1>=CHR$O.)THEN40 
70  IFGKT  THENQ=Q+1 :GQTO60 
80  Fl$=fl$+CHR$<L> 

90  NEXT 

100  PR  I  NT  "  WWfitIO  VE  NO.  "M:PRINT"W";fl$; 

110  INPUT" ^REVERSE  NUMBER ";R: IFR<1 0RR>9THEN 1 1 0 
120  B$="" 

130  FORT  = 1 0TORSTEP- 1 
140  B$=B$+MIDf<fi$,T, 1> 

150  NEXTT 

160  fi*=LEFT$<fi$,R-l>+B* 

170  I  FFlf=  "0123456789"  THEN  130 

180  M=M+1 -GOTO100 

190  PR  I  NT  "  JWiilSVOU  DID  IT!!" 

195  PRINT"W"fi$ 

200  PR I NT "WIT  TOOK "M" MOVES" 


Space  Fighter 


Y ou  pilot  your  V-wing  space  craft  across  the  void,  trying  to  hit  the  numbers  that  appear  at  ran¬ 
dom  on  the  screen.  You  must  be  quick,  for  they  only  stay  there  a  short  time.  Your  score  is 
related  to  the  number  you  run  over.  The  sound  effects  and  the  appearance  of  the  V-wing  are 
very  effective,  and  you  may  well  wish  to  use  these  in  other  space  fight  programs  you  write. 

As  usual,  you  control  your  ship  with  "A"  (up),  "Z"  (down),  ","  (left),  and  (right). 
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10  REM  SPACE  FIGHTER 
15  HS=© 

20  RESTORE 
25  GOSUB9490 

1 000  GETA$ : I FA$« ” " THEN  A$*B$: 

1005  PRINT"S8*ilSCOREMSC 
1010  E*C:  :Q=S:  V1*V 
1 020  I FRf * " . " THENS*S+ 1 : C*C+ 1 : V=62 
1 030  I FA$= " , " THENS-S- 1 =  C=C- 1 : V=60 
1 040  I FA$= " A " THENS-S-22 : C=C~22 : V* 1 
1 050  I F At® " Z " THENS-S+22 : C=C+22 : V*22 
1060  W=PEEK<.3> 

1 070  I FW* 1 02THENC*E : S*G : V*V 1 
1075  F=0 

1 080  I F1048THEN I FW<38THENSC*SC+W#79 1 • F= 1 : P0KE36878 ,15: RQKE36877 , 0 

1 086  I FF= 1 THENFORT- 1 35TG230 : P0KE36875 , T : NEXT : PGKE36875 , 0 

1 087  P0KE36878 , 7 : P0KE36877 , 2*RSC < fl* > +70 

1090  IFRND<0».  93THENP0KEC < CC "> ,  0 :  POKEBCCO ,  48 :  COCC+1 :  POKEBCCO , 

A  < CC  > : POKEC <  CC  > , 7 
1100  I FCC«55THEN3000 
1200  POKEE  .<  0 
1210  POKEC, ?■ POKES, V 
1220  B$*A$ 

1230  GOTO 1000 

3000  PRINT"*M»MSiriME  IS  UP" 

3010  PR  I  NT "  MBBBISsfi'OU  SCORED  "SC 

3020  I FH8<SCTHENH8*SC 

3030  PR  I  NT  "  WfiiliSiiH  I GH  SCORE:  "HS 

3035  P0KE36878, 0 

3040  FORT®1TO3000:NEXT 

3050  GOTO20 

9490  PR I NT "3" 

9540  S=7726 
9550  0*38446 
9570  B*«". " 

9590  FORZ*7702TO7723  =  POKEZ ,102  =  POKEZ+30720 , 7 : NEXT 
9600  F0RZ»8 1 64T08 1 85 : POKEZ ,102  =  POKEZ+30720 , 7 : NEXT 
9620  FORZ*7680TO8 1 64STEP22 : POKEZ ,102: POKEZ+30720 , 7 : POKEZ+2 1 , 

102 : POKEZ+30741 , 7 : NEXT 
9625  I FHSO0THEN9640 
9630  DIMA<55> , B<55> , C<55> 

9640  F0RZ=1T055 

9650  A<Z>=INT<RND<0>*9>+49 

9660  B  <  Z  >  *7704+ 1 NT  <  RND <  0  >  #458  > 

9665  C<Z>*BCZ:J +30720 

9670  I FPEEK <  B  < Z  >  >  * 1 02THEN9660 

9680  NEXT 

9690  CC=1 

9700  V*60 

97 1 0  SC*0 : I FHS*0THENHS* 1 
9720  P0KE36879, 10 
9999  RETURN 
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Zodiac  Fortune  Teller 


Zodiac  Fortune  Teller,  written  by  A.G.T.  Stevens,  uses  a  question-and-answer  method  to  get 
the  VIC  to  earn  its  keep  providing  sideshow  entertainment.  The  results  should  not  be  taken  too 
seriously. 


5  PRINT'S" 

10  GOSUB  840 
20  PRINT 

30  PRINT"flWILL  VOU  PLEASE  " 

40  PRINT"  TELL  ME  VOUR  NAME" 

50  INPUT  A$ 

60  PRINT'S" 

65  COSUB  840 
67  PRINT 

70  PRINT’STHANK  VOU  ";A* 

80  PRINT 

90  PRINT'SWILL  VOU  NOW  PLEASE" 

100  PRINT"  TELL  ME  VOUR  BIRTHDAV" 

110  PRINT 

120  PRINT'IBIVE  ME  4  NUMBERS" 

130  PRINT 

148  PRINT'flUONTH  FIRST" 

150  PRINT"  01<JAN)-12<DEO" 

160  PRINT 

170  PRINT"  FOLLOWED  BV  DAV" 

180  PRINT"  01  -  31 
190  INPUT  B 
200  PRINT'S" 

218  GOSUB  840 
22«4>RINT 

225  PRINT'S  VOU  WERE  BORN  UNDER" 

230  PRINT"  THE  SIGN  OF 
240  PRINT 

250  IF  B>*0101  AND  BO0120  OR  B>«1223  AND  B01231  THEN  PRINT" 


260  IF  B>0121  AND  BO0219  THEN  PRINT"  AQUARIUS" 

270  IF  B>«0220  AND  BO0321  THEN  PRINT"  PISCES" 

280  IF  B>*0332  AND  BO  420  THEN  PRINT"  ARIES" 

290  IF  B>*0421  AND  BO0521  THEN  PRINT"  TAURUS" 

308  IF  B>*0522  AND  BO  0621  THEN  PRINT"  GEMINI" 

310  IF  B>*0622  AND  BO0723  THEN  PRINT"  CANCER" 

320  IF  B>«0724  AND  BO0823  THEN  PRINT"  LEO" 

330  IF  B>«0824  AND  BO0923  THEN  PRINT"  VIRGO" 

340  IF  B>®0924  AND  BO1023  THEN  PRINT"  LIBRA" 

350  IF  B>1024  AND  B01122  THEN  PRINT"  SCORPIO" 

360  IF  B>®1123  AND  B01222  THEN  PRINT"  SAGITTARIUS" 
370  PRINT 


380  PRINT"SHALL  I  TELL" 


390  PRINT"VOUR  FORTUNE  ";A*;"?" 


CAPRICORN" 
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400  PRINT 

410  PRINT"  PRESS  V  OR  N" 

420  INPUT  C$ 

430  IF  C$="Y"THEN  PR  I  NT  "T 

431  IF  Cf*"V"THEN  OOSUB  840 
440  IF  C*-"N"  THEN  GOTO  829 
450  PRINT 

460  >INT<10#RND<imi 

478  IF  J=1  THEN  PRINT"BITCHV  PALM7A  CASH  WINDFALL  COULD  BE  DUE" 

480  IF  J-2  THEN  PRINT"SBEWARE ! A  FINANCIAL  DEAL  COULD  LOSE  VOU  MONEV" 

490  IF  J»3  THEN  PRINT"BRN  ACQUAINTANCE  MAKES  ATTRACTIVE  PROPOSAL  BE  CAREFUL! 

It 

500  IF  J*4  THEN  PRINT”SINVEST  SPARE  MONEV  WISELV" 

518  IF  J=5  THEN  PRINT"aAVOID  INDECISION  STICK  TO  EXISTING  PLANS" 

520  IF  J-6  THEN  PRINT'Ti'OU  ARE  ENTERING  A  SUCCESSFUL  PHASE" 

530  IF  J=7  THEN  PR I NT " 31 MPORTANT  TO  KEEP  ON  GOOD  TERMS  WITH  EVERVBODY" 

540  IF  J*8  THEN  PRINT"aRMBITIOUS  PLANS  COULD  BE  IN  VOUR  FAVOUR" 

550  IF  >9  THEN  PRINT"8IF  VOU  HAVE  PREVIOUSLY  FAILED-TRY  AGAIN" 

560  IF  J»10  THEN  PR I NT" WE W  INTERESTS  COULD  BRING  FRESH  BENEFITS" 

570  FOR  T*1  TO  150: NEXT  j 
580  PRINT 

590  K*INT<10#RNDU>>+1 

600  IF  K*1  THEN  PRINT"HCERTAIN  PEOPLE  MAY  BE  ANYTHING  BUT  HELPFUL" 

610  IF  K*2  THEN  PRINT"HAVOID  EMOTIONAL  ENTANGLEMENTS" 

620  IF  K-3  THEN  PRINT"HAN  INTERVIEW  OR  MEET-  -ING  COULD  BRING  MORE  SECURITY" 

630  IF  K=4  THEN  PRINT"HSOCIAL  LIFE  COULD  PROVIDE  MORE  VARIETY" 

640  IF  K®5  THEN  PRINT"lfi  BUSY  MONTH  AHEAD  IS  INDICATED" 

650  IF  K=6  THEN  PR I NT "IWOT  AN  ENERGETIC  MONTH  AHEAD  BUT  TRY  TO  VARY  YOUR  ACTIVI 
TIES" 

668  IF  K=7  THEN  PRINT"M1AKE  SURE  YOU  ARE  NOT  CAUGHT  OFF  GUARD  LATER  NEXT  M 
ONTH" 

670  IF  K=8  THEN  PRINT"WOU.  MAY  NEED  HELP  FROM  CLOSE  CONTACTS" 

680  IF  K=9THEN  PRINT"IFALL  IN  WITH  OTHERS  ARRANGEMENTS" 

690  IF  K“10  THEN  PRINT"IISOME  KIND  OF  FAMILY  REUNION  COULD  TAKE  PLACE" 

700  FOR  S=1  TO  150: NEXT  s 
710  PRINT 

720  L°INT < 10#RND< 1 ) )+l 

730  IF  L*1  THEN  PRINT"BPRESS  ON  WITH  OUTDOOR  ACTIVITIES" 

740  IF  L»2  THEN  PR I NT" PLANETARY  INFLUENCES  FAVOUR  TRAVEL" 

750  IF  L=3  THEN  PRINT"fSAN  OPPORTUNITY  WILL  ARISE  GIVE  IT  CAREFUL  CONS I DERAT I 

ON" 

760  IF  L*4  THEN  PRINT"flfTHIS  MONTH  IS  FAVOUR-  -ABLE  FOR  AGREEMENTS" 

770  IF  L=5  THEN  PRINT"!SirESTING  TIME  AHEAD  BE  PREPARED!" 

780  IF  L«6  THEN  PRINT"!®E  FASHIONABLE  BUY  A  NEW  OUTFIT" 

790  IF  L=7  THEN  PRINT"!*TRY  TO  CUT  DOWN  ON  INESSENTIALS  OTHER-  -WISE  PROBL 

EMS!" 

800  IF  L=8  THEN  PR I NT". SUPERIORS  COULD  BE  DIFFICULT  BE  FIRM  BUT  COURTEO 

US" 

810  IF  L=9  THEN  PRINT"VI  FRIEND  MAY  HAVE  PROBLEMS  TRY  TO  BE  HELPFUL" 

820  IF  L®10  THEN  PR I NT "COFFERS  OF  HELP  MAY  BE  REFUSED-PERSIST  VOU  ARE  NEEDED" 
825  END 

829  PRINTMT 

830  PRINT  "BALL  RIGHT  THEN  ";A$;"  BYE  BYE" 
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831  END 

848  PRINT  - 1" 

850  PRINT  TRB<3);,,m  ■M&IfiCIRSO  £Z!40fiTDBiiaR&  I" 

860  PRINT  TflB<3>;"l  I" 

870  PRINT  TRB<3>;"llF!«l!RliraJ»ME  OTfiEiLS.*!*?  I" 

880  PRINT  TflB<3>J"l _ I" 

890  POKE  36878,15 

900  FOR  L=1  TO  100 

910  POKE  36876, INT<RND<1)#128)+128 

920  FOR  M=1  TO  10 

930  NEXT  M 

940  NEXT  L 

950  POKE  36876,0 

968  POKE  36878,0 

970  RETURN 

RERDV. 


Engulf 


In  this  game,  you  are  moving  about  (most  musically,  as  you'll  hear)  trying  to  avoid  being 
trapped  by  the  colored  blocks  the  computer  is  placing  on  the  screen.  You  have  to  keep  moving 
as  long  as  you  can.  Eventually,  thanks  to  the  clever  VIC,  you  become  engulfed  by  blocks  and 
will  not  be  able  to  move  any  more.  You'll  be  given  a  score  related  to  how  long  you  managed  to 
remain  free. 

Your  movements  are  controlled  by  the  same  keys  as  in  Zombie  Island— "A”  =  up,  "Z"  = 
down,  ","  =  left,  and  =  right. 

10  REM  ENGULF 
20  GO8UB9490 
30  SC35©  :  REM  SCORE 
1 000  GETR$ : I FR$~ " " THENR$=B$ 

1010  E=C : Q=S 

1 020  I FR$« " . " THENS=S+ 1 : C«C+ 1 : N-195 
1 030  I Ffl* * " , " THENS-S- 1 = C*C- 1 = N-207 
1 040  I FR$= " fl " THEN8-S-22  =  CC-22 : N-2 1 5 
1 050  I Ffl*« " Z " THENS-S+22 : C=C+22 : H=225 
1060  W*PEEK<8> :F»0 
1 070  I FW* 1 02THEHC=E : S=Q 

1 075  I FPEEK C Q+22 > * 1 02THENF*F+ . 25 

1 076  I FPEEK  < 0-22 ) » 1 02THENF»F+ . 25 

1 077  I FPEEK  <  0- 1 } « 1 02THENF*F+ . 25 

1 078  I  FPEEK  C  0+ 1  >  ■  1 02THENFS=F+ .  25 
1090  I FF88 1 THEN2000 

1100  80*80+ 1 

1110  H*76S0+ 1 NT  <  RND  < 0  > *484  > : I FPEEK  C  H  >  * 1 02THEN 1110 
1120  J*H+30720 : POKEH, 102 
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1130  M*INT<RND<0>*7> : IFM*1THEN1 130 
1140  POKE J  , M 

1 1 50  PQKE36874 , N : P0KE36875 , N+ 1 
1200  POKEE,l 
1210  POKEC,  2 : POKES,  216 
1220  Bf*A$ 

1230  GOTO 1000 
2000  POKE36878,0 

2010  PRiNTM»DaKnnaii>iii''VE  got  youm" 

2020  PR  1  NT " JflMMMIYQU  SCORED "80*236 
2830  GOTO2030 
9490  PRINT"!!" 

9540  8*7954 
9550  C*38674 
9570  " 

9590  FORZ*7680TG770 1 ;  POKEZ ,  1 02  *•  POKEZ+30720 , 2  :  NEXT 
9600  F0RZ=8 1 64T08 1 85 = POKEZ ,102: POKEZ+30720 , 2 : NEXT 
9620  FORZ*7680TO8 1 64STEP22  =  POKEZ ,102: POKEZ+30720 , 2 : POKEZ+2 1 , 
1 02 : POKEZ+3074 1 , 2 = NE XT 
9630  P0KE36878, 15 
9640  RETURN 


Reaction 


Your  reactions  come  under  scrutiny  in  this  program  which  uses  double-height  characters. 
When  you  run  the  program,  you'll  see  the  words  STAND  BY  appear.  Then  the  screen  will  clear, 
and  after  a  random  time,  the  words  OK  NOW  PRESS  THE  SPACE  BAR  will  appear.  You  must  hit 
the  space  bar  immediately.  If  you  do  so  within  the  time  limit,  the  words  HEY  YOU  DID  IT  come 
up  on  the  screen,  and  the  process  will  start  again.  However,  the  time  available  to  you  to  react 
will  decrease. 

The  process  will  continue,  with  you  being  given  a  shorter  and  shorter  time  to  react  each  time. 
Eventually  you  will  fail,  and  a  "reaction  rating"  (LOUSY,  FAIR,  PRETTY  GOOD,  VERY  GOOD,  or 
YOU'RE  THE  CHAMP)  will  be  given,  depending  on  how  short  the  time  of  your  last  successful 
reaction  was. 

10  REM  REACTION 
15  DIMR$(4) 

20  PR I NT "a" 

38  GO8UB9000 
40  A$*"MS»^»i*ISTANBMBV" 

50  B$ *  ■ "  MOOKIHO IMPRESS!  VTHEimMBP ACEH© AR  " 

60  Df  *  "  XHMWHE  YIWOUMD I  Dill  T  " 

70  Q-50 

980  PR  I  NT 'TWA* 

985  FORT=1TO5@0 : NEXT 
990  FORT  * 1 TO 1 00+RND  C  0  >  *400 
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992  I FRND <  0  >  > . 99THENPR I NT " 3" 

995  NEXT 

1 000  GETF$ : I FF*<> " " THEN 1 000 

1010  pr  i  nt  "  nr  B* 

1020  E=TI 

1 030  GETF$ : I FF$» " " THEN 1 030 
1040  G=T  I  -E :  PR  I  NT  "  ni" 

1050  I FG<Q+ 1 THENPR I NTB$ 

1060  IFG>QTHEN1 120 
1 070  FGRT« 1 TO2000 : NEXT 
1075  Q«Q-INT<RND<0>#5+2> 

1 080  GETF$  :  I  FF#<> 11 "  THEN  1 080 
1090  GOTO980 
1120  PRINT"m" 

1125  I  FQ>40THENPR  I  NT  "  XUSPLOUS  V  " 

1130  I  FQ<4 1  8NDQ>30THENPR  I  NT  "  MB WFR I R  " 

1 1 40  I  FQ<3 1  RNDQ>20THENPR  I  NT  "  MW0FRETT VW300D  " 
1150  I  FQ<2 1  8NDG>  1 0THENPR I  NT  "  MMVER  VBSGOOD  " 

1160  I  FQ<  1 1  THENPR  I  NT  "  MMV0UREMTHEMCH8MP  " 

1 1 80  FORT'S  1  TO  1 000  :  NEXT 

1190  PRINT''njSOTBD!lMM:«»r 

1 200  PR I NT " NEWMGflMEMCOM I NGWJP " 

1210  FORT= 1 TO5000 : NEXT 
1220  GOTO70 

9000  P0KE56 , 28 : 8=32776 : FORB-7 1 84TO7600STEP2 
9005  POKES PEEK  <  8  >  :  POKEB+ 1 ,  PEEK  <  8  > 

9007  8=8+1: NEXT 

9010  P0KE36879 25  =  P0KE36869  .•  255 
9015  P0KE36867 1 47 
9020  RETURN 


Spacetrek 


You  are  in  command  of  a  galactic  probe  ship,  responsible  for  the  safety  of  a  ten-by-ten  sector 
of  space,  containing  the  Antares,  Procyon,  Rigel,  Vega,  Canopus,  Altair,  and  Sagittarius  sectors 
of  the  known  galaxy  (see  lines  8540  to  8610).  This  area  of  space  contains  a  number  of  rather 
slow-witted  aliens.  They  are  immobile  during  a  game,  although  their  positions  will,  of  course,  be 
different  from  game  to  game. 

You  have  a  limited  amount  of  energy,  and  your  task  in  the  game  is  to  roam  the  galaxy,  making 
use  of  your  long-  and  short-range  scanners  when  you  choose  to  do  so  to  locate  and  then  destroy 
the  aliens.  A  direct  hit  is  not  always  successful,  and  your  firing  on  the  aliens  often  enrages  them 
so  that  they  fire  back  at  you.  If  they  hit  you,  the  damage  you  sustain  is  measured  in  energy 
units,  decreasing  the  energy  you  have  left  to  use.  Moving,  firing,  and  using  the  scanners  all  con¬ 
sume  energy.  Long-range  scanners  use  up  more  energy  than  short-range  ones. 

When  you  run  the  program,  you'll  see  the  sector  space  drawn  out  in  the  bottom  left  of  the 
screen.  At  first  it  will  be  blank  except  for  you— the  red  inverse  dollar  sign  in  the  middle.  Under 
the  sector  are  the  words  YOU  ARE  IN  RIGEL  SECTOR  AT  5  5  -  ENERGY  1 234  and  at  the  top  of 

the  screen  are  your  three  options  1  -  SCAN  2  -  MOVE  3  -  FIRE.  You  enter  one  of  the  three 
numbers. 

SCAN  works  in  one  of  two  ways.  If  you  enter  1  to  show  you  wish  to  scan,  the  words  SCAN¬ 
NER:  SHORT  ( 1 )  OR  LONG  (2)  RANGE  will  appear.  Short-range  looks  at  the  squares  immediately 
surrounding  the  one  you  are  in,  and  reports  if  there  is  anything  there.  It  does  not  tell  you  in 
which  direction.  Long-range  allows  you  to  choose  the  direction  and  gives  a  readout  of  what  is 
two  squares  away  in  that  direction.  As  I  mentioned  earlier,  captain,  long-range  scanning  uses  up 
more  energy  than  short-range  scanning  does.  If  you  told  the  VIC  you  wished  to  scan  north,  it 
will  reply  SCANNER  IS  POSITIVE  (which  means  an  alien  ship  is  to  the  north  of  you)  or  SCANNER 
IS  NEGATIVE  which  means  the  square  two  to  the  north  of  you  is  empty. 

You  have  to  try  and  kill  as  many  aliens  as  you  can  before  you  run  out  of  energy,  but  as  each 
action  uses  up  energy,  you  must  judge  your  moves  most  carefully  before  making  them.  If  you 
fire  into  an  empty  square,  it  will  turn  into  an  inverse  blue  X  so  you  know  not  to  shoot  into  that 
square  again,  although  you  may  move  through  it  if  you  like.  A  direct  hit  gets  an  inverse  purple 
asterisk  in  the  relevant  square. 

You'll  find  that  playing  the  game  will  teach  you  more  about  how  to  play  it  than  these  instruc¬ 
tions  will.  When  you  enter  FIRE  or  MOVE  as  your  choice,  you'll  be  asked  to  indicate  the  direction 
you  want.  First  the  computer  will  ask  N/S  (for  north  or  south),  and  if  you  wish  to  move  in  one  of 
these  directions,  enter  N  or  S.  Just  press  RETURN  if  you  do  not  want  to  move  up  or  down.  Then 
you'll  be  asked  to  choose  from  east  or  west.  Again,  just  press  RETURN  if  you  do  not  want  to 
move  east  or  west.  You  can  combine  moves  to  move,  for  example,  northeast,  or  southwest,  if 
you  like. 

The  program  is  very  tight  on  space,  with  just  over  1 00  bytes  left  when  the  game  is  underway, 
so  a  number  of  error-trapping  routines,  which  would  have  been  useful,  have  been  left  out.  Cer¬ 
tainly  you  should  add  them  if  you  have  memory.  Note  that  the  short-range  scanner  cannot  be 
used  in  the  outer  circuit  (that  is,  if  either  coordinate  is  1  or  10).  The  long-range  scanner  cannot 
be  used  if  either  coordinate  is  1 , 2,  9,  or  1 0. 

There  is  nothing  in  the  program  to  stop  you  from  trying  to  move  off  the  galactic  grid,  but  try¬ 
ing  to  do  so  will  cause  the  program  to  crash.  Add  your  own  choice  of  name  for  an  alien  in  line 
9240  if  you  don't  like  mine. 
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If  you  have  extra  memory,  some  sound  would  certainly  enliven  the  action.  As  well,  you  could 
add  a  routine  to  move  the  aliens  slowly  about,  and  one  to  put  the  name  of  a  new  member  before 
each  report  (reports  being  direction  of  move  or  fire,  location,  energy  level,  information  on 
whether  you've  been  hit  or  not,  and  so  on),  with  the  actual  crewmember  making  the  report 
changing  from  time  to  time. 


20  QOSUB9000 
25  GOSUB8000 

40  PR I HT " SKENERGY " I HT  < E  > 

41  I FE< 1 THEN3800 

42  I  Ffil_>0THENPR  I  NT  "  RSTFiLLV  "  flL 

130  PR I NT" RM1 -SCAN  2-MOVE  3-FIRE"  :  INF’UTB 

156  I FB= 1 THENGOSUB 1 000 

15?  IFB*2THENGO8UB2000 

158  IFB-3THENGOSUB3000 

160  GOTO40 

1000  GO8UB8000 

1010  PRINT"RWWBCANNER-" 

1 040  PR  I  NT  "  SiiSHORT  <  1  >  OR  "  :  PR  I  NT  "  ALONG  <  2  )  RANGE  "  :  I NPUTK 
1080  E*E~10#K : F«0 
1100  I FK=2THEN 1 500 

1 120  IFFKB+i ..  C>«10RA<B+1 ,  C+l >®1GRA<B,  C+l  )  =  10Rfl<B-i  ,  C>*10RA 
<B-l,C-n»lTHENF*l  =GOT  01130 
1 125  IFFKB, C-l >0RA<B+i , C-l >*10RA<B-i , C+l >®1THENF®1 
1 1 30  I FF=0THENPR I NT " ANNEGRT I VE " : GOTO 1 670 
1140  IFF=1  THENPR I  NT  "  ST1" j  Z*  "  NEAR  "  :  GOTO  1 670 
1 500  PR I NT " B I RECT I ON  N~  1 ,  8-2 ,  E-3 ,  W-4 " : I NPUTN : Z=0 

1 560  I FN* 1 ANBA  < B-2 , C  > * 1 THENZ® 1 
1 570  I FN®2ANBA <  B+2 C  >  =  1 THENZ- 1 
1 580  I FN-3ANBA < B , C+2  >  * 1 THENZ® 1 
1 590  I FN=4 ANB A <  B , C-2 > ■ 1 THENZ® 1 
1640  PRINT" flkSCRNNER  IS  " j 
1 650  I FZ= 1 THENPR I NT " POS I T I VE " 

1 660  I FZ=0THENPR I NT " NEG AT I VE " 

1 670  FORT® 1 TO2000 : NEXT : GOSUB8000 : RETURN 
2000  E=E~50  :  ACB.  C>®0  :  BCB.  0=0 
2010  A*«"" :B*»"" 

2060  INPUT "  r m  I RECT I ON  < N/S  > " i A$ 

2100  I FA$= " N " THENB=B- 1 
2120  I FA$® " S " THENB®B+ 1 
2140  PR I NT "NOW  AT"B"  "C 
2150  I-NPUT  "  E  / W  >  "  ;  B$ 

2160  I FB$® " E " THENC=C+ 1 
2165  IFB*«"W"THENC«C-1 
2170  PR I NT "NOW  AT"B"  "C 
2180  FOR I = 1 TO 1 000 : NEXT 
2260  IFACB,C>®1THEN5500 
2270  ACB,C>=2:B':B,C>®2 
2290  GO3IJB8000 
2300  RETURN 
3000  G=B : Af=" " 

3005  PR  I  NT  "  r®  IRECT I  ON  OF  F I  RE  "  •  I  NF'UT  "  <  N/S  >  "  Fl$  :  I  FA$=  "  N  "  THENG=G- 1 
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3010  IFR$="8"THENG=G+1 
3020  F=C 

3030  I NPUT  "  HKiiiiK  E/U  >  "  j  Af 
3120  I FR$= " E " THENF-F + 1 
3130  IFA*-"W"THENF-F-1 
3180  E=E-100 

3130  I  Ffl  •'  G  .•  F  >  <>  1 THEN3305 

3200  PRINT"VOU  HIT  THE"  :  PR  I  NT  "Ml"  2# 

3220  AL=AL+1 : BCG, F)=4 : GGTO3410 

3305  B  (  G ,  F  )  =3 :  PR  I  NT  "  SHVOU  HISSED,  SIR" 

33 1 5  FORD- 1 TO 1 000 : NEXT 

3320  PR I NT "THE  "Z*"  ARE" = PR I NT "SHOOTING  BACK" 

3325  FORG- 1 TO 1 000 : NEXT 
3340  IF  RND<0».6THEN3400 

3350  PRINT"  BWTHEY  HIT  US ! ! " : E-E-100#RND<0> : GOTO3410 
3400  PR I NT "THE  "Z$"  HISSED" 

34 1 0  FOR  I  =  1  TO  1 000  :  NEXT  ••  GOSUB8000  :  RETURN 
3800  PR I NT " WENERG V  BANKS  EXHAUSTED" 

38 1 0  PR  I  NT  "  WVOU  K I LLED  " AL " AL I EH " ; : I F  ALO 1 THENPR I  NT  "  S  " 

3820  PR I NT "WON  THIS  HIS8I0NW0UR  COMMAND  RATING  IS  "  1000*KAL/8> 
3830  GOTO3830 

5500  PRINT'-WVOUR  SHIP  HAS  LANDED  ON  AM"Z*"  SHIP" 

5540  PRINT"W8aYQUR  SHIP  HRS  EXPLODED" 

5550  GOTO5550 

8000  PR  I  NT  "  inWWWWWWMMW"  * 

8020  FORQ-1TO10 

8045  FORP=1TO10 

8060  I FB  < Q , P ) -0THENPR I NT " ■*" j 

8070  I FB  < Q , P  > -2THENPR I NT "  BW* " ; 

8080  I FB  < Q , P  > “3THENPR I NT "  BON " i 
8090  I FB  < Q , P  > -4THENPR I NT "  tm.  " j 
8160  NEXT: PRINT: NEXT 
8500  Q«B#C:PRINT',n»i'OU  ARE  IN" 

8540  I FQ< 1 0THENPR I NT " 1ANTARES " ; 

8550  I  FQ>9RNDQ<20THENPR  I  NT  "  iPROC  VON  " 

8560  I  FQ>  1 9RNDQO0THENPR I  NT  "  1SR  I  GEL  " ; 

8570  I FQ>29ANDQ<50THENPR I NT "  BMEGR " ; 

8580  I  FQ>49ANDQ<70THENPR  I  NT  "  8BCANOPUS  "  } 

859©  I  F0>69 ANDQO0THENPR I  NT  "  iiALTA  I R " ; 

8600  I  FQ>89THENPR  I  NT  "  BSAG  I TTAR I  US  "  ; 

8610  PRINT"  SECTOR  AT"B"  "C 
8640  RETURN 

9000  DTMA<  10,  10‘> ,  B<  10, 10} 

9060  FORA*  1 TO40  :  X=  I  NT  <  RND  C  0  >  *  1 0  }  + 1  -*  V*  I  NT  <  RND  <  0  >  #  1 0  >  + 1 :  R  (.  X ,  V  >  *  1 :  NEXT 
9150  B=5 :  C=5  =  A-r.B,  0=2 :  B<B,  0=2 :  AL=0 
9240  Z$== " ANDROZ I ANS " 

9340  E=1234 
9350  P0KE36879 , 25 
9990  RETURN 
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Biorhythms 


This  program  is  based  on  the  three  cycles  that  affect  us  throughout  our  lives— the  physical, 
emotional,  and  mental  cycles.  The  23-day  physical  cycle  relates  to  such  things  as  strength,  ag¬ 
gressiveness,  and  endurance.  The  emotions  are  said  to  be  affected  by  a  28-day  cycle,  which 
relates  to  optimism/pessimism,  frustration,  temper,  and  moodiness.  The  mental  cycle  is  33 
days  long,  and  this  relates  to  logic,  common  sense,  reasoning,  and  ease  of  expression. 

When  you  run  the  program,  you'll  be  asked  to  enter  your  date  of  birth  (following  the  clear 
prompts),  and  the  day  for  which  you  want  a  biorhythm  calculated.  The  computer  will  give  you 
three  forecasts— the  day  before  the  one  you've  specified,  the  day  you  want,  and  the  one  that 
follows  it. 

You  are  then  given  the  option  of  asking  for  a  new  forecast  (based  on  the  same  date  of  birth)  or 
of  stopping  the  program.  A  zero  rating  is  a  neutral  day;  positive  figures  are  a  good  sign,  while 
negative  ones  are  warnings  of  a  bad  day  in  the  area  governed  by  that  particular  cycle.  If  all  three 
are  negative,  you'd  better  stay  in  bed  for  the  day. 

10  REM  BIORHYTHMS 

IS  REM  ALASTAIR  GOURL AY/TIM  HARTNELL 
£0  PRINT" r3fiWB®!ENTER  YOUR  BATE  OF  BIRTH" 

30  INPUT 'WEAR  CAS  1984>";A 
40  INPUT"MMONTH  CAS  7>";B 
50  INPUT "MB AY  CAS  2D".:C 

ftas Ob;+'R*-'3Pi  4+r 

70  PR  I  NT "  riBWWWANB  NOW "  THE  DATE  FOR  YOUR  BIQRHTHM" 

80  INPUT  "WEAR  CAS  1984>";B 
90  INPUT"W1QNTH  CAS  7>";C 
100  INPUT "MD AY  CAS  20  MD 
110  B«B*365.25+C*30.4+B~A 
112  PR I NT "D" 

115  FORFs-lTOl 

116  I  FF=~  1 THENPR I  NT  "  ■JfPREV  I OUS  DAV:":B«B-1 

117  I FF =0THENPR I NT " ■  JflDA  V  OF  FORECAST : " : B=B+1 

118  I  FF»  1  THENPR  I  NT  "  iJUNEXT  DAY  =  "  =  B*B+ 1 
120  C=23 

130  PRINT  "  IDPHYS I  CAL :  "  j 
140  GQSIJB250 
150  C=28 

1 60  PR  I  NT  "  «EMOT  I GNAL :  " .: 

170  GOSUB250 
180  C=33 

190  PR  I  NT  "  Bil  NTELLECTU  AL  :  "  ; 

200  GOSUB250 
205  NEXTF 

210  PR  I  NT "  KWWWSENTER  'V'  FOR  A  NEW  FORECAST.-  'N'  TO  STOP" 

220  GET  W$ : IFW$=" "THEN220 
230  IFWfs"Y"THEN70 
240  END 

250  PR  I  NT  I  NT  C 1 00*3  IHCCB-I  NT  C  B/C  )  *C  )  /C*44/7  >  > ;  "  V.  " 

260  RETURN 
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Billboard 


This  tiny  program  produces  very  big  results— twice  as  big,  in  fact.  You  enter  the  "advertising 
message"  you  want  displayed  in  the  strings  A$,  B$,  and  C$,  using  the  "shift  right"  instead  of  a 
space  between  the  words.  Only  letters  of  the  alphabet  can  be  used  with  this  program.  Symbols, 
spaces,  and  numbers  are  not  allowed. 

You  may  well  wish  to  modify  the  program  so  that  instead  of  A$,  B$,  and  C$  being  permanent¬ 
ly  set,  you  can  enter  them  each  time  you  run  it.  Simply  change  line  70  into  INPUT  A$,  line  80 
into  INPUT  B$,  and  line  90  into  INPUT  C$.  Note  that  if  you  do  this,  you  can  only  enter  single 
words,  and  you  cannot  use  the  controls  to  position  your  words. 


10  REM  BILLBOARD 

70  "  WMKMiWTH  I  SMI  SMARTEST  " 

80  B$«  "  UNUTH I SMSHOWSH WH ATKl**»*i HAPPENS  " 
90  C$="  SERAPH  I CUMDEMQ" 

100  GOSUB9000 
110  PR  I  NT  "IT  A* 

1 20  FORD- 1 TO5000 : NEXT 
130  PR I NT" 3" B* 

1 40  FORD58 1 TO5000 :  NEXT 


150  PR I NT "  3"  C* 

1 60  FORD* i TO5000 : NEXT 


170  GOTO110 

9000  P0KE56  .•  28  :  A=32776  :  F0RB=7 1 84TO7600STEP2  :  POKEB , 


9010 

9020 
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Quack 


In  this  rather  daft  game,  you  have  to  shoot  the  little  purple  ducks  flying  overhead.  You  shoot 
by  pressing  the  space  bar.  You  can  move  yourself  right  and  left  by  pressing  the  "Z"  and  "M' 
keys  respectively.  Your  score  at  the  end  of  a  limited  time — which  clocks  down  on  the  screen 
throughout  the  game— relates  to  the  number  of  hits  you  had,  compared  with  the  number  of 
shots  you  fired,  so  you  cannot  get  a  high  score  just  by  firing  over  and  over  again. 

The  quacks  do  not  fly  in  a  totally  predictable  manner,  which  adds  to  the  challenge.  The  sound 
and  display  when  you  score  a  "hit”  are  quite  satisfying.  Note  that  there  is  a  time  penalty  im¬ 
posed  every  time  you  press  the  space  bar,  another  good  reason  for  firing  with  moderation. 


10  REM  QUACK 

20  PR I NT "  3"  : F0KE36879 , 1 22 

30  Br8? :  H®  1 0 :  SC®1©  '•  H I  *0 1  FC«0 

40  FORP«1TO50 

45  I FP»4 1 THENFR I  NT  "  S8 

50  PRINT"SrriME"50-P"  SHOTS "FC 

100  FORZ=0TO20 

110  P0KE7768+Z, 127 

115  P0KE7769+Z,81 

120  P0KE38488+Z  > 4 

125  P0KE38489+Z.4 

142  GOSUB500 

143  SCaSC+HI 

144  I FH I * 1 THENPQKE36879 , 8  =  PQKE36879 , 1 22 

145  I FH I » 1 THENFR I NT " HMSCORE " SC •  H I  »0 

147  POKE38408+Z  * B 

148  P0KE38489+Z  > B 

1 50  I FRND  <  1 » . 4THEN I FZ< 1 7THENZ*Z+2 
160  NEXT 
170  NEXTP 

180  PR  I  NT  "MUTT  I  ME  IS  UP" 

190  PRINT" SUCCESS  RATE" I NT Cl 0000* CSC+. 0000 1V<FC+. 0000 1 > ) X 1 00 " « " 
200  END 

500  P0KE38862+H.B 
520  QETA$ 

530  IFAf*"Z"THENIFH>lTHENH*H~l 

540  IFA#“»"M"  THEN  I  FH<20THENH»H+ 1 

560  POKE38862+H.0 

570  POKES 142+H, 88 

575  IFA^a"  " THENGOSUB 1 000 

580  RETURN 

1000  REM  SHOT 

1002  FC*FC+1 : P*P+1 : I FP>49THENRETURN 

1003  I FP-4 1 THENPR I  NT  "  SSI 

1004  PRINT"SaTIME"50~P"  SHOTS  "FC 

1005  FORV»8098TO7768STE P-66 
1010  POKEV+H.90 
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1020  P0KEV+H+30720.0 
1050  PGKEY+H+30720;  B 


1060  NEXT 

1 065  I  FH*20RH*Z+ 1 THENH I  *  1  =  PQKE36878  >  1 5 :  P0KE36875 
230+H  =  FORT* 1 T03 : NEXT : P0KE36878 ;  0 
1070  RETURN 


Magic  Square 


The  clever  computer  generates  a  three-by-three  magic  square,  replacing  three  or  four  of  the 
numbers  with  zero.  As  you  probably  know,  each  line  of  numbers  in  magic  square  (vertically, 
horizontally,  and  diagonally)  adds  up  to  the  same  total.  It  is  your  task  to  work  out  what  the  miss¬ 
ing  numbers  are. 

If  there  is  already  at  least  one  complete  row,  it  is  fairly  easy,  with  a  bit  of  swift  mental  arith¬ 
metic,  to  determine  (a)  the  total  and  (b)  what  digit  will  complete  one  of  the  other  rows.  This  new 
digit  should  help  you  with  another  row  and  so  on.  If,  however,  there  is  not  a  single  complete 
row,  as  sometimes  happens,  your  task  will  be  much  harder. 

The  computer  counts  the  number  of  moves  it  takes  you  to  complete  the  square,  and  then 
gives  you  a  score  at  the  end,  which  is  related  to  the  number  of  wrong  guesses  you  made  on  your 
way  to  solving  the  problem. 


10  REM  MAGIC  SQUARE 
20  A* I NT  < RND < 0  > *9 > + 1 = M-6 
30  PR  I  NT  "IT1 :  J*0 

40  B»INT<RND<0>#9>+1 :C*INT<RND<0>#9>+1 

50  I FA*BQRA»CGRB*CTHEN40 

60  A< 1 >*A+B : A<2>-A-<B+C> =  A<3>*A+C : A<4>=A-B+C : A<5)*A 
70  A  <  6  > * A+B-C  =  A  < 7  > »A-C : A  <  8  > * A+B+C : A  <  9  > * A-B 
140  F=0 

150  F0RZ*lT09:B<Z>*fl<Z> 

160  IFB<Z>-0THENF*1 
1 70  NEXT  M  FF* 1 THENRUN 
180  B<A>»0 

190  D«INT<RND<0>*9>+1 

200  I  FDOAANDDOBANDDOCTHENM*M- 1 

205  B<D>»0 

210  BCB>*0 

220  B<C>«0 

225  G0T0235 

230  GOTO310 

235  J*J+1 

240  PRINT"ffl«KW»MGUESS  NO.  "  J 
250  PR  I  NT  "Mm" 

255  FGRZ*1T09 

260  PRINTS CZ);"  "J 

270  I FZ-30RZ-6THENPR I NT : PR I NT 
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280  NEXT  ••PRINT 

290  I FM09THENPR I  NT  "  ISMWSfc'OU  HPVEii"M"  BRIGHT 

300  IFM«9THENPRINT"WKWSJSt'OU  HAVE  SOLVED  IT"  :  PRINT "WOU  SCORED" 
I NT <1 0000/ J> 

305  I FM*9THENFGRT » 1 TQ6000 : NEXT : RUN 

310  INPUT-'WVOUR  GUESS 'MW 

320  M*0 

330  F0RZ-1TO9 

350  I  Ffl  <  Z  )  =WTHENB  <  2  > “ W 

360  IFB<Z>O0THENM*M+1 

370  NEXT 

380  G0T0235 


Simon 


Simon  appears  simple  to  play,  but  can  be  infuriatingly  difficult.  Your  task  is  to  copy  the  grow¬ 
ing  string  of  numbers  the  VIC  creates.  It  will  start  with  one  number  between  one  and  four,  print¬ 
ing  on  the  screen  in  a  distinctive  color,  in  a  specific  position,  and  sounding  a  corresponding  note. 
You  repeat  the  number,  and  it  will  reappear,  with  the  position,  color,  and  sound  as  before  ...  if 
you  are  correct.  The  first  number  will  then  be  repeated,  followed  by  a  second  number.  You  must 
repeat  both  of  these,  continuing  as  the  sequence  of  notes  and  numbers  builds  up,  until  you 
either  get  a  sequence  of  seven  correct  or  make  a  mistake. 

You'll  find  that  you'll  improve  dramatically  with  practice.  Note  that  if  the  same  number  ap¬ 
pears  twice  in  a  row,  you  have  to  remove  your  finger  from  the  key  after  pressing  it  the  first  time. 
The  border  changes  throughout  the  game  to  keep  you  on  your  toes. 

5  REM  SIMON 
10  R*a>-"1YUW 
20  m<. 2)="Wi2W 
30  fll(3)s"iW3W 
40  fi$<4)  =  "SJV,«4V«" 

50  FORT*  1 T04  =  REPDS  <  T  >  •'  NEXT 
60  P0KE36878;  15 :  PRINT"!!" 

70  FQRC*1TQ7 

80  LETB<C>*INT<RNDC0^4)  +  l 
90  NEXT 
95  LETX* 1 

1 00  FGRQ* 1 TGX : P0KE36879 , 23+X 
110  GOSUB700 
150  NEXTQ 
160  F0RQ*1T0X 
1 70  GETE$ : I FE$= " " THEN 1 70 
180  LETF*VPL<Et> 

190  I FFOB  <  Q  >  THEN500 
200  GQSUB700 
260  NEXTQ 
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270  X*X+1 = IFX>7THEN280 

275  FORT® 1 TO600  =  NEXT : OOTO 1 00 

280  PR I NT "WELL  DONE.  VQU  DID  IT" 

290  GOTO290 

500  PRINT"VOU  BLEW  IT" 

510  PR I NT " VOU  SCORED "X-l 

520  END 

700 

705  FORT«0TO1  :  PR  I  NT  "SI" 

710  F0RR»1T03#<B<Q>+T> 

720  PR  I  NT  "Mil"  > 

730  NEXT 
740  PRINTC$ 

745  NEXTT 

750  P0KE36875  ,  8  <  B  <  Q  )  ) 

760  FORV® 1 TO350 : NEXT 
762  PQKE36875, 0 
765  PRINT'Tl" 

770  RETURN 

780  DRTfl 195,207,215, 225 


Roulette 


Roulette  is  one  of  the  classic  gambling  games,  and  with  this  program  you're  ready  to  try  out 
your  "system”  for  beating  the  wheel  .  .  .  without  losing  your  shirt. 

The  first  program  allows  full  casino  betting,  playing  by  the  European  rules,  with  a  wheel  with 
the  numbers  one  to  36,  plus  zero.  The  American  wheel  used  in  the  second  program  has  the 
numbers  one  to  36,  plus  zero  and  double  zero. 

The  roulette  table  has  the  numbers  one  to  36,  some  in  black  and  some  in  red,  on  it,  plus  the 
zero  (arid,  in  the  case  of  the  American  system,  the  double  zero).  You  can  place  bets  on  a  wide 
variety  of  number  combinations.  Once  the  bets  are  placed,  the  wheel  is  spun,  and  the  croupier 
throws  a  ball  into  the  wheel,  in  the  opposite  direction  to  the  spin.  The  ball  ends  up  resting  on  one 
of  the  numbers  and  this  determines  your  fate. 

When  you  run  the  program,  you'll  see  the  words  YOU  HAVE  1 00  CHIPS.  After  a  short  pause, 
the  words  MESSIEURS,  FAITES  VOS  JEUX  (Gentlemen,  place  your  bets)  appear.  You  then  enter 
a  letter  of  the  alphabet  from  A  to  P  (or  Q  to  quit  the  game)  which  indicates  which  type  of  bet  you 
wish  to  place.  Here  is  the  key  to  enter  your  bets: 

A  —  A  single  number 

B  —  Two  adjoining  numbers 

C  —  Three  numbers  in  adjoining  columns 

D  —  Six  numbers  in  adjoining  columns 

E  —  Four  numbers  in  a  square 

F  —  Numbers  one  to  1 2  (known  as  the  First  Twelve) 

G  —  Numbers  1 3  to  24  (the  Second  Twelve) 
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H  —  Numbers  25  to  36  (the  Third  Twelve) 

I  —  Numbers  one  to  1 8  (Low) 

J  —  Numbers  1 9  to  36  (High) 

K  —  1 2  numbers  in  a  horizontal  row 
L  —  Two  adjacent  horizontal  columns 

M  —  Any  red  number  (see  below  for  a  list  of  red  and  black  numbers) 
N  —  Any  black  number 
O  —  Any  even  number 
P  —  Any  odd  number 
Q  —  To  quit  the  game 


The  red  numbers  are: 


1,3,  5,7,9, 


12,  14,  16,  18,  19,  21,23,  25,  27,30,  32,34, 


36 


The  black  numbers  are: 


2,4,  6,8,  10,  1 1,  13,  15,  17,  20,22,  24,  26,28,29,31,33,35 

You  will  not  be  allowed  to  bet  more  chips  than  you  have,  and  you  may  withdraw  from  the  wheel 
at  any  time.  The  bank  only  holds  1 ,000  chips;  so  if  you  get  a  total  of  1 , 1 00  in  hand  (the  bank's 
1 000,  plus  your  original  1 00  chips),  the  game  must  end,  when  you'll  be  the  one  who  broke  the 
bank  at  Monte  Carlo. 

Once  you've  spent  a  bit  of  time  gambling  with  this  program,  you  may  wish  to  try  some  of  the 
"systems”  that  have  evolved  for  roulette.  One  of  the  most  popular  is  the  Martingal,  in  which 
you  stick  to  the  same  number,  or  group  of  numbers,  doubling  the  bet  each  time  you  lose,  so  you 
bet  one  chip  the  first  spin,  two  the  next  (if  you  lost  on  the  first),  four  the  next,  and  so  on.  This 
ensures,  in  theory,  that  any  win  should  wipe  out  all  previous  losses,  and  give  you  a  profit  as 
well.  Most  systems  are  systematic  only  in  that  they  help  you  lose  your  money  in  record  time. 
However,  it  is  far  better  to  try  out  a  system  with  the  program  than  with  an  actual  wheel.  Sir 
Hiram  Maxim,  the  inventor  of  the  first  automatic  repeating  gun  (hardly  an  achievement  likely  to 
make  him  an  expert  on  roulette  wheels),  is  said  to  have  said  that  "a  bad  system  is  better  than 
none  at  all.”  Balance  this  against  the  advice  of  William  Makepeace  Thackeray:  "You  have  not 
played  yet?  Do  not  do  so;  above  all,  avoid  a  martingale  if  you  do.” 


1  REM  ROULETTE  -  EUROPEAN 

3  P0KE36879,26 

5  PR  I  NT  "13"  :  GOTO20 

1 0  FORK* 1 TO800  =  NEXT : PR I NT : RETURN 

20  DIMB<24>:CH=100 

40  PR I NT "YOU  HAVE "CH" CHI PS" 

50  COSUB 10 

60  PR I NT "MESSIEURS,  FAITES  VOS  JEUX" 

70  GETA$ : IFA$*" "THEN70 

72  A*ASC  <  A$  > -64  = I FA< 1 OR A> 1 7THEN70 

75  IFR*17THEN4000 

80  FORQ* 1 T024 :B<Q) *-99 : NEXT 

110  INPUT" JIHOW  MANY  CHIPS" ; H • IFN>CHTHEN1 10 

120  CH*CH-N 
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130  I F  A*  1 THENGOSUB2600 

131  IFfl=2THENGOSUB2640 

132  I Ffi=3THENGOSUB2630 

1 33  I FA*4THENGOSUB2720 

134  IFA=5THENGOSUB2760 

135  I FA*6THENGQ8UB2800 

136  IFA«7THENGOSUB2S40 

137  IFA=8THENGO8UB2880 

138  IFA*9THENGOSUB2920 

139  I FA* 1 0THENGOSUB2960 

1 40  I FA* 1 1 THEHGOSUB3000 

141  I FA* 1 2THENGQ8UB3040 

142  I FA* 1 3THENGOSUB3080 

143  I  FA* 1 4THENG0SUB3 1 20 

144  I F  A*  1 5THENG0SUB3 1 60 

145  I F  A*  1 6THENGOSUB3200 
150  GOSUB10 

160  PR  I  NT  "WHEEL  IS  SPINNING"  :  GOSIJB 10 
170  GOSUB 1 0 : PR I NT " H" 

1 80  FORB* 1 T075 : C* I NT  <  RND  <  0  >  *37  >  =  PR I NT "  r3BB®fl" C  =  FORT* 1 T03*B 

185  NEXT = GOSUB5000 = NEXT 

190  GOSUB 10  =  PRINT "BALL  HRS  ENDED  RT"C 

240  Y*0 : E* 1 

250  I FB  <  E  >  =CTHENY= 1 : GOTO270 
260  I FE<24THENE*E+ 1  =  GOTO250 
270  IFV*0THEN370 
290  WI*OD*N:CH*CH+WI 

310  PR I NT " CONGRRTULRT I ONS >  YOU  HAVE  WON "W I" CHI PS" 

330  GOSUB 10 
350  GOSUB400 
360  GOTO40 

370  PR I NT "SO  YOU  LOSE" : G0T033© 

400  I FCH< 1 THENPR I NT " YOU  HAVE  RUN  OUT  OF  CHIPS": END 
410  I FCH> 1 1 00THENPR I NT " YOU  HAVE  BROKEN  THE  BANK ! " : END 
420  RETURN 

2600  INPUT"BWHICH  NUMBER" ;D  =  Ba>*D:  00*35  = RETURN 
2640  INPUT"BMHICH  TWO  NUMBERS" ; B<1 ), B<2> : 0D*17 : RETURN 
2680  PRINT"JflWHICH  NUMBER" • INPUT"  IN  LEFT  COLUMN" ;D 
2690  FORE*0TO2 :B<E+1> *D+E  =  NEXT : OD* 1 1 : RETURN 

2720  INPUT"BFIR8T  NUMBER  OF  SIX" }  D :  FORE*0TQ5:  B<E+1  >*D+E :  NEXT :  0D*5  = 
RETURN 

2760  INPUT" 1ST  NUMBER  IN  SQUARE ";D:FORE*0TG3:B<E+1>*D+E: IFE*2 
THEND-D+1 

2770  NEXT : GB*8 : RETURN 

2800  FORE» 1 TO 1 2  =  B  <  E  >  »E : NEXT : 0D*2 : RETURN 

2840  FORE» 1 TO 1 2 : B  <  E  >  *E+ 1 2 : NEXT : 0B*2 : RETURN 

2880  FORE* 1 TO 1 2 : B  <  E  >  *E+24 : NEXT : 0D*2 : RETURN 

2920  FORE* 1 TO 1 8 : B  <  E ) »E  =  NEXT  =  GB* 1 : RETURN 

2960  F0RE*1T08 : B<E)*E+18  =  NEXT : OB*l : RETURN 

3000  PR I NT "BLOW  NUMBER  AT  END" : INPUT "OF  LINE" ID 

30 1 0  FORE*0TO  1 1 :  B  <  E+ 1 >  *3*E+B :  NEXT  =  0D*2  •  RETURN 

3040  INPUT  "BLOW  NO.  1ST  COLUMN" ; D1 = INPUT "BLOW  NO.  2ND  COLUMN"; 


D2 : 1 F ABS  <  D 1 ~D2  » 1 T  HEN3040 

3050  FORE*0TO 1 1 : B<  E+ 1 > *3*E+B 1 : B  < E+ 1 3  > *3*E+B2 : NEXT : OB* . 5 "RETURN 


3080  RESTORE 
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3090  FORE* 11013  =  RE  ABB < E  > = NEXT  =  0D= 1 =  RETURN 

3 1 20  RESTORE  =  FORE*  1 TO 1 8  =  RE  ADZ  =  NEXT  =  FORE*  1  TO  1 8 :  READS <  E  >  =  NEXT :  OD*  1  = 
RETURN 

3 1 60  F0RE*2T0368TEP2  =  B  <  E/2  > *E  =  NEXT  =00*1=  RETURN 

3200  FORE* 1 T0358TEP2  =  B  < < E+ 1 > /2  >  *E : NEXT  =  OD* 1  =  RETURN 

3210  DRTA1,3,5,7,9, 12, 14, 16, 18, 19,21,23,25,27,30,32,34,36 

3220  BRTA2, 4,6,8, 10,11, 13, 15, 17, 20, 22, 24, 26, 28, 29, 31 , 33. 35 

4000  PR  I  NT "  MKSIYOU  RRE  WITHDRAWING  FROM  THE  GAME  WITH  "CH"CHIP8" 

4010  END 

5000  PQKE36878, 5 

5010  P0KE36877 , 130+B  =  P0KE36875, 130+B 
5020  P0KE36878 , 0 : P0KE36877 , 0  =  P0KE36875 , 0 
5030  RETURN 


1  REM  ROULETTE  -  AMERICAN 
3  P0KE36379 , 26 
«5  ppTWTnT' :  mrnoa 

1 0  FORK*! TO800 : NEXT : PR I NT : RETURN 

20  DIMB<24> ;CH*100 

40  PR I NT "YOU  HAVE "CHM CHI PS" 

50  GOSUB10 

60  PR I NT "MESSIEURS,  FAITES  VOS  JEUX" 

70  GETA$ = IFfi**" "THEN70 

72  A*RSC  <  A$  >  -64  =  I F  A<C1  ORR>  1 7THEN70 

75  I FA* 1 7THEN4000 

80  FORQ* 1 T024 : B<Q>*-99 : NEXT 

110  INPUT"'l!HOW  MANY  CHIPS";  N=  IFN>CHTHEN1 10 

120  CH==CH-N 

130  I FA* 1 THENGOSUB2600 

131  IFA-2THENGOSUB2640 

132  I FA*3THENGOSUB2680 

133  I FA*4THENGOSUB2720 

134  IFA-5THENGOSUB2760 

135  I FA*6THENGOSUB2800 

136  I F A*7THENGOSUB2840 

137  I FR*8THENGOSUB2880 

138  I F A«9THENGOSUB2920 

139  I FA* 1 0THENGOSUB2960 

1 40  I F A* 1 1 THENGOSUB3000 

141  I FA* 1 2THENGQSUB3040 

142  I FA* 1 3THENGOSUB3080 

143  IF A* 1 4THENG0SUB3 l 20 

144  I FA* 1 5THENG0SUB3 1 60 

145  I FA* 1 6THENGOSUB3200 
150  GO8UB10 

160  PR I NT "WHEEL  IS  SPINNING" = GOSUB 10 
170  GOSUB10:  PRINT'T]" 

1 80  FORB* 1 T075 : C*INT ( RND C 0 > *38 >-l : PRINT" C : FORT* 1 T03#B 

182  IFCO~lTHENPRINT"d»W»®iar,C 

183  I  FC=- 1 THENPR I  NT "  nWKBMSDOUBLE  ZERO" 

184  F0RT*1T03*B 

1 85  NEXT  =  GOSUB5000 : NEXT 

1 86  GOSUB 1 0 : PR I NT "  S3" 
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187  I FCO- 1 THENPR I  NT  "  BALL  HRS  LANDED  RT"C 

190  I FC— 1 THENPR I NT " BRLL  HRS  LANDED  ON  DOUBLE  ZERO" 

240  V*0 : E=1 

250  I FB  < E  > *CTHEN V* 1 : GOTO270 
260  I FE<24THENE-E+ 1 : GOTO250 
270  IFV-0THEN370 
290  WI*OD#N:CH=CH+WI 

310  PR I NT" CONGRATULATIONS,  VOU  HAVE  WON "W I" CHI PS" 

330  GOSUB10 
350  GOSUB400 
360  GOTO40 

370  PR I NT "SO  VOU  LOSE" : GOTO330 

400  I FCH< 1 THENPR I NT " VOU  HAVE  RUN  OUT  OF  CHIPS": END 
410  IFCH>1 100THENPRINT" VOU  HAVE  BROKEN  THE  BANK!" '•  END 
420  RETURN 

2600  I NPIJT  "  WH  I CH  NUMBER  " ; D : B< 1 >*D :  0D=35 :  RETURN 
2640  I NPUT "WHICH  TWO  NUMBERS"  ;  BC1  >,  B<2)  :  0D*17 :  RETURN 
2680  PR  I  NT  "WHICH  NUMBER"  :  INPUT"  IN  LEFT  COLUMN" ;D 
2690  FORE-0TO2 :  B  <  E+ 1  >  =D+E  =  NEXT  •'  OD*  1 1 :  RETURN 

2720  I NPUT " JflF I RST  NUMBER  OF  SIX" ; D = FQRE-8T03 : BCE+l >«D+E : NEXT : 0D*5 : 
RETURN 

2760  INPUT" 1ST  NUMBER  IN  SQUARE" ; D : FORE-0TO3 = B<E+1 >*D+E : IFE*2 
THEND*D+1 

2770  NEXT : 0D=8 : RETURN 

2800  FORE* 1 TO 1 2  =  B  <  E  >  «E  =  NEXT  =  OD-2 : RETURN 

2840  FORE* 1 TO 1 2 : B  <  E  >  *E+ 1 2 : NEXT : 0D*2  =  RETURN 

2880  FORE* 1 TO 1 2 : B  C  E  >  *E+24 : NEXT : 0D*2 : RETURN 

2920  FORE* 1 TO 1 8 : B  <  E  > -E  J NEXT : OD* 1 : RETURN 

2960  FORE* 1 T08 : B  <  E  >  =E+ 1 8 : NEXT : OD* 1 : RETURN 

3000  PR I NT" WOW  NUMBER  AT  END" : INPUT" OF  LINE" ;D 

30 1 0  FORE*0TO 1 1 : B  < E+ 1 > -3*E+D : NEXT : OD-2 : RETURN 

3040  I  NPUT  "WOW  NO.  1ST  COLUMN"  ;  D1 :  INPUT"  WOW  NO.  2ND  COLUMN"; 

D2 : 1 F ABS  < D 1 -B2 >  > 1 T  HEN3040 

3050  FORE*0TO 1 1 : B  <  E+ 1 > -3#E+D 1 : B  C  E+ 1 3  > -3#E+D2 : NEXT : OD* . 5 : RETURN 
3080  RESTORE 

3090  FORE* 1 TO 1 8 : READB < E > : NEXT : OD«l : RETURN 

3 1 20  RESTORE  =  FORE* 1 ' TO 1 8 : READZ : NEXT : FORE* 1 TO 1 8 : READB  <  E  > : NEXT : OD* 1 • 
RETi  IRN 

3 1 60  F0RE-2T036STEP2 : B  <  E/2 ) *E : NEXT : OD* 1 : RETURN 
3200  FORE*  1 T0358TEP2 :  B O' E+.l  > /2 > *E :  NEXT :  OD«l :  RETURN 
3210  DATA1 , 3, 5, 7, 9, 12, 14, 16, 18, 19,21,23,25,27,30,32,34,36 
3220  DATA2, 4, 6, 8, 10,11, 13, 15, 17,20,22,24,26,28,29,31,33,35 
4000  PR  I  NT "  'JSMIiflVOU  ARE  WITHDRAWING  FROM  THE  GAME  WITH  "CH" 
CHIPS" 

4010  END 

5000  P0KE36878 , 5 

50 1 0  P0KE36877 , 1 30+B  =  P0KE36875 , 1 30+B 
5020  P0KE36878 , 0 : P0KE36877 , 0 : P0KE36875 , 0 
5030  RETURN 
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Appendix 


Error  Messages 

BAD  DATA.. .String  data  was  received,  but  program  expecting  numeric  data. 

BAD  SUBSCRIPT... Element  of  an  array  outside  of  the  range  specified  in  the  DIM  statement. 

CAN'T  CONTINUE. ..The  CONT  command  will  not  work,  either  because  the  program  was  never 
RUN,  there  has  been  an  error,  or  a  line  has  been  edited. 

DEVICE  NOT  PRESENT. ..The  required  I/O  device  was  not  available  for  an  OPEN,  CLOSE,  CMD, 
PRINT#,  INPUT#,  or  GET#. 

DIVISION  BY  ZERO. ..Division  by  zero  impossible. 

EXTRA  IGNORED... Too  many  items  of  data  entered  in  response  to  an  INPUT  statement.  Only 
the  first  few  items  accepted. 

FORMULA  TOO  COMPLEX. ..String  expression  should  be  split  into  at  least  two  parts. 

ILLEGAL  DIRECT.. .INPUT  can  only  be  used  within  a  program,  and  not  in  direct  mode. 

ILLEGAL  QUANTITY... Number  used  as  argument  of  function  or  statement  out  of  allowable 
range. 

LOAD... Problem  with  program  on  tape. 

NEXT  WITHOUT  FOR... Either  incorrectly  nesting  loops,  or  having  a  variable  name  in  a  NEXT 
statement  that  doesn't  correspond  with  one  in  a  FOR  statement. 

OUT  OF  DATA... A  READ  statement  executed  but  no  data  left  unREAD  in  DATA  statement. 

OUT  OF  MEMORY.. .No  more  RAM  available.  May  also  occur  when  too  many  FOR  loops  nested, 
or  too  many  GOSUBs  in  effect. 

OVERFLOW... The  result  of  a  computation  is  larger  than  1.701 41 884E  +  38. 

REDIM'D  ARRAY. ..An  array  may  only  be  DIMensioned  once. 

REDO  FROM  START.. .Character  data  was  typed  in  during  an  INPUT  statement  when  numeric 
data  was  expected.  Just  re-type  the  entry  so  that  it  is  correct,  and  the  program  will  continue  by 
itself. 
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RETURN  WITHOUT  GOSUB... RETURN  statement  encountered,  when  no  GOSUB  command 
issued. 

STRING  TOO  LONG... A  string  can  contain  up  to  255  characters. 

SYNTAX...  A  statement  is  unrecognizable  by  the  VIC.  A  missing  or  extra  parenthesis,  misspelled 
keywords,  etc. 

TYPE  MISMATCH. ..This  error  occurs  when  a  number  is  used  in  place  of  a  string,  or  vice-versa. 

UNDEF'D  FUNCTION... A  user  defined  function  was  referenced,  but  it  has  never  been  defined 
using  the  DEF  FN  statement. 

UNDEF'D  STATEMENT.. .An  attempt  was  made  to  GOTO  or  GOSUB  or  RUN  a  line  number  that 
doesn't  exist. 
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$12.96 


ZAPI  POWI  BOOMI  Now  you  can  play  arcade  games  at  home  on  your  excit¬ 
ing  VIC-20  —  making  the  most  of  your  computer's  powerful  color  and  sound 
potentlall 

Just  enter  the  programs  as  they  are  listed,  and  you'll  enjoy  hours  of  splendid  color  effects 
and  a  limitless  range  of  noises.  Or,  tailor  the  programs  to  adapt  your  own  ideas  to  them  — 
there  are  plenty  of  ideas  within  the  game  to  work  with. 

Write  poetry  with  your  VIC,  work  out  biorhythms,  create  messages,  in  double-sized  char¬ 
acters,  drive  your  racing  car  on  the  VIC  Speedway  .  .  .  and  morel  Just  a  sample  of  the 
programs  you'll  find  in  this  fun-filled  book: 

Gunflght  — outshoot  the  fastest  draw  in  town,  VIC.  Move  up  and  down  on  the  screen, 
avoiding  VIC's  shots  and  fire  back.  Good  shooting,  partner. 

Scramble  —Bomb  the  enemies  defense  installations  and  shoot  down  fighters  for  points. 

As  you  move  off  the  right  of  the  screen,  you  appear  on  a  new  landscape. 
Avoid  the  enemy  rockets  and  fighters  as  they  stream  through  the  skies.  The 
smalt  red  halls  are  fuel  dumps  and  the  large  circular  objects  on  stilts  are 
ammo  dumps.  And  be  careful  ndt  to  get  hit  by  the  fire  from  the  ground 
installations! 

Airplane  — You  attempt  to  land  your  passengers  safely  on  the  runway— all  of  the 
controls  are  up  to  you  I 

Space  Birds.  Arkenstone.  Symphony  for  a  Melancholy  Computer.  Codebreaker.  All  these 
games  and  many,  many  more  are  included  I 

All  programs  fit  the  standard  memory  VIC-20.  Several  are  supplied  with  special  versions  so 
you  can  use  joysticks  if  you  have  them.  Nonjoystick  versions  are  also  included.  All  games 
have  been  extensively  play-tested  . . .  and  have  been  passed  with  flying  colors.  Don't  plan 
on  going  out  too  much  in  the  next  few  months.  You  won't  be  able  to  tear  yourself  away 
from  your  VIC-201 
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